Changeset 3202 for trunk

Timestamp:

Apr 22, 2007, 4:36:53 PM (19 years ago)

Author:

bird

Message:

wlink

File:

• trunk/essentials/dev-lang/perl/makedef.pl (modified) (1 diff)

trunk/essentials/dev-lang/perl/makedef.pl

@@ -1236 +1236 @@
 elsif ($PLATFORM eq 'os2') {
     open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';
-    /^\s*[\da-f:]+\s+_(\w+)/i and $mapped{$1}++ foreach <MAP>;
+    /^\s*[\da-f:]+[\s*]\s*_(\w+)/i and $mapped{$1}++ foreach <MAP>;
     close MAP or die 'Cannot close miniperl.map';