Merge pull request Perl#256 from jkeenan/gha-253-windows

Gha 253 windows

Author: jkeenan

win32/bin/pl2bat.pl

@@ -85,8 +85,8 @@ sub process {
     my $start= $Config{startperl};
     $start= "#!perl"   unless  $start =~ /^#!.*perl/;
     open( FILE, '<', $file ) or die "$0: Can't open $file: $!";
-    @file = <FILE>;
-    foreach $line ( @file ) {
+    my @file = <FILE>;
+    foreach my $line ( @file ) {
 	$linenum++;
 	if ( $line =~ /^:endofperl\b/ ) {
 	    if(  ! exists $OPT{'u'}  ) {

win32/bin/search.pl

@@ -1,6 +1,10 @@
 #!/usr/local/bin/perl -w
-'di';
-'ig00';
+no strict 'vars';
+{
+    no warnings 'void';
+    'di';
+    'ig00';
+}
 ##############################################################################
 ##
 ## search