Hit a snag while smoking on a NetBSD machine that still has 5.005.
--- mkovz.pl 2002/03/08 15:41:21 1.1
+++ mkovz.pl 2002/03/08 15:41:42
@@ -250,16 +250,18 @@
my $smoke_Config_pm = File::Spec->catfile ($testd, "lib", "Config.pm");
- open my $fh, $smoke_Config_pm
+ open CONFIG, $smoke_Config_pm
or die "Can't open '$smoke_Config_pm': $!";
- while (<$fh>) {
+ while (<CONFIG>) {
if (m/^my \$config_sh = <<'!END!';/ .. m/^!END!/) {
m/!END!(?:';)?$/ and next;
m/^([^=]+)='([^']*)'$/ or next;
exists $Config{lc $1} and $Config{lc $1} = $2;
}
}
+
+ close CONFIG;
} # get_smoke_Config
=head1 CHANGES
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
There's so much more to me than my arm.
