Changeset 20074 for branches/vendor/third/perl/Porting/findrfuncs

Timestamp:

02/09/04 14:10:55 (6 years ago)

Author:

zacheiss

Message:

Import perl 5.8.3.

Files:

• branches/vendor/third/perl/Porting/findrfuncs (modified) (1 diff)

branches/vendor/third/perl/Porting/findrfuncs

@@ -115 +115 @@
         $sym =~ s/^([0-9A-Fa-f]+\s+)?[Uu]\s+//;
         $sym =~ s/\s+[Uu]\s+-$//;
-        next if /\s/;
+        next if $sym =~ /\s/;
         $sym =~ s/\@.*\z//;     # remove @@GLIBC_2.0 etc
         # warn "#### $sym\n";