Fix Win32 build after unusual breakage caused by #30327
authorSteve Hay <SteveHay@planit.com>
Fri, 16 Feb 2007 18:14:58 +0000 (18:14 +0000)
committerSteve Hay <SteveHay@planit.com>
Fri, 16 Feb 2007 18:14:58 +0000 (18:14 +0000)
(Boy, did that take some tracking down!)

p4raw-id: //depot/perl@30331

win32/config_h.PL

index ad2c9a3..929ef5a 100644 (file)
@@ -31,9 +31,9 @@ $patchlevel = qq["$patchlevel"];
 open(SH,"<$name") || die "Cannot open $name:$!";
 while (<SH>)
  {
-  last if /^sed/;
+  last if /^\s*sed/;
  }
-($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
+($term,$file,$pat) = /^\s*sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
 
 $file =~ s/^\$(\w+)$/$opt{$1}/g;