[PATCH mkovz.pl] 5.005 compat

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.