process in some evil way back when it used SSI, but it hasn't been for a
long time.
+++ /dev/null
-#! /usr/bin/perl -wn
-BEGIN {
- unless (defined ($var = shift)) {
- print STDERR "Usage: $0 var-name\n";
- exit 1;
- }
-}
-if (/^\Q$var\E=/) {
- s/^\Q$var\E=//;
- print, last unless /^'/;
- do {
- $quotes = (grep /'/g, (split //, $_)) % 3;
- $inside = $quotes ... $quotes;
- s/^'// if $inside == 1;
- s/'$// if $quotes == 2 || $inside =~ /E0$/;
- s/'\\''/'/g;
- print;
- last if $quotes == 2 || $inside =~ /E0$/;
- } while (<>);
-}