diff options
| author | Steve Hay <SteveHay@planit.com> | 2007-02-16 18:14:58 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-02-16 18:14:58 +0000 |
| commit | a2b6a4d6bb4965a901b280b9e1bdabbd6fd15e75 (patch) | |
| tree | 9af44ff67d115b4a6f0820748a611e18a308222d /win32 | |
| parent | eec72883e7bd2862f334c41702163eb3262a292c (diff) | |
| download | perl-a2b6a4d6bb4965a901b280b9e1bdabbd6fd15e75.tar.gz | |
Fix Win32 build after unusual breakage caused by #30327
(Boy, did that take some tracking down!)
p4raw-id: //depot/perl@30331
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/config_h.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index ad2c9a3afa..929ef5a312 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; |