From: Steve Hay <SteveHay@planit.com>
Date: Fri, 16 Feb 2007 18:14:58 +0000 (+0000)
Subject: Fix Win32 build after unusual breakage caused by #30327
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2b6a4d6bb4965a901b280b9e1bdabbd6fd15e75;p=p5sagit%2Fp5-mst-13.2.git

Fix Win32 build after unusual breakage caused by #30327
(Boy, did that take some tracking down!)

p4raw-id: //depot/perl@30331
---

diff --git a/win32/config_h.PL b/win32/config_h.PL
index ad2c9a3..929ef5a 100644
--- a/win32/config_h.PL
+++ b/win32/config_h.PL
@@ -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;