diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-06 10:11:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-06 10:11:22 +0000 |
| commit | d05aa1354dc4f1f485ab0c45b05688c3494e1aa6 (patch) | |
| tree | 0676b2a262de0b9cbdce7b26d5a7eeb7e8a94857 | |
| parent | 5b4f334efd4922af406d1dea2d6b8952f272ce76 (diff) | |
| download | perl-d05aa1354dc4f1f485ab0c45b05688c3494e1aa6.tar.gz | |
Thinko fix.
p4raw-id: //depot/perl@18838
| -rw-r--r-- | Porting/findrfuncs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/findrfuncs b/Porting/findrfuncs index 520f158381..c9a7ff80a7 100644 --- a/Porting/findrfuncs +++ b/Porting/findrfuncs @@ -114,7 +114,7 @@ for my $exe (@EXES) { $sym =~ s/^\s+//; $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"; if (exists $rfuncs{"${sym}_r"} && ! $syms{"$sym:$exe"}++) { |