Op een mooie zomerdag (Tuesday 10 September 2002 15:00), schreef Abe
Timmerman:
> Meanwhile, I hope this patch applies to your 'mkovz.pl'
[And (again) it helps if include the actual patch]
--- mkovz.pl.orig Tue Sep 10 14:48:37 2002
+++ mkovz.pl Tue Sep 10 14:50:36 2002
@@ -253,7 +253,7 @@ sub get_smoke_Config
or die "Can't open '$smoke_Config_pm': $!";
while (<$fh>) {
- if (m/^my \$config_sh = <<'!END!';/ .. m/^!END!/) {
+ if (m/^(our|my) \$[cC]onfig_[sS][hH](.*) = <<'!END!';/ .. m/^!END!/)
{
m/!END!(?:';)?$/ and next;
m/^([^=]+)='([^']*)'$/ or next;
exists $Config{lc $1} and $Config{lc $1} = $2;
good luck,
Abe
--
Amsterdam Perl Mongers http://amsterdam.pm.org
perl -wl
%_ = reverse (tsuJ=>0, rehtona=>1, lreP=>2, rekcah=>3);
@_ = reverse map { ($_{$_}, $_) } sort keys %_;
$_ = reverse join " ", map $_[$_] => grep $_%2 => 0..$#_; print;
