diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-26 18:05:12 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-26 22:31:46 +0000 |
| commit | 8d6d96c1bf85fd984f18f84ea834be52b168c812 (patch) | |
| tree | 4ee72334404f4fe71563fa9032cd971abbc0f829 /lib/File/Basename.pm | |
| parent | c9242e489bb96da0966a8aebd4b60579ca9623f3 (diff) | |
| download | perl-8d6d96c1bf85fd984f18f84ea834be52b168c812.tar.gz | |
Re: 5.6.*, bleadperl: bugs in pp_concat
Message-Id: <200105261605.RAA12295@crypt.compulink.co.uk>
p4raw-id: //depot/perl@10223
Diffstat (limited to 'lib/File/Basename.pm')
| -rw-r--r-- | lib/File/Basename.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index 14522437e9..cc124744ca 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -213,8 +213,8 @@ sub fileparse { } $tail .= $taint if defined $tail; # avoid warning if $tail == undef - wantarray ? ($basename . $taint, $dirpath . $taint, $tail) - : $basename . $taint; + wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail) + : $basename .= $taint; } |