diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-09-03 10:21:57 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-04 13:55:20 +0000 |
| commit | 6286f723a70d9d63bf59e611a2946140879179c3 (patch) | |
| tree | e9d10d6a634f1136bfcadcde6fe4be66e8a2d322 /lib/File | |
| parent | 557c0de77f34a6b3bb86c0e3be82c255a426eb96 (diff) | |
| download | perl-6286f723a70d9d63bf59e611a2946140879179c3.tar.gz | |
File::Basename doesn't lazy load Carp right.
and Subject: [PATCH] More modules that don't lazy load Carp right.
Message-ID: <20020904002157.GD2701@ool-18b93024.dyn.optonline.net>
and Message-ID: <20020904003857.GE2701@ool-18b93024.dyn.optonline.net>
p4raw-id: //depot/perl@17840
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Basename.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index f2ef495cdd..1c9a419313 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -169,7 +169,7 @@ sub fileparse { my($fullname,@suffices) = @_; unless (defined $fullname) { require Carp; - Carp::croak "fileparse(): need a valid pathname"; + Carp::croak("fileparse(): need a valid pathname"); } my($fstype,$igncase) = ($Fileparse_fstype, $Fileparse_igncase); my($dirpath,$tail,$suffix,$basename); |