diff options
| author | Robin Barker <rmb1@cise.npl.co.uk> | 1997-04-01 12:11:43 +0100 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-01 12:01:35 +1200 |
| commit | 2d6caab3c51efbf973371684428f83cc5475c01c (patch) | |
| tree | fc734f0ba2817d71cef4d35c373022c77ff14b1b /t/lib | |
| parent | eea074c3ea78f67828c62a0ffb638a436fab370e (diff) | |
| download | perl-2d6caab3c51efbf973371684428f83cc5475c01c.tar.gz | |
Eliminate warnings in File::Basename
./perl -w t/lib/basename.t
gives some warnings.
p5p-msgid: 11173.9704011111@tempest.cise.npl.co.uk
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/basename.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/lib/basename.t b/t/lib/basename.t index 0f8a117e4c..860b3379b4 100755 --- a/t/lib/basename.t +++ b/t/lib/basename.t @@ -51,6 +51,7 @@ print +(dirname('arma:[virumque]cano.trojae') eq 'arma:[virumque]' ? print +(dirname('arma:<virumque>cano.trojae') eq 'arma:<virumque>' ? '' : 'not '),"ok 12\n"; print +(dirname('arma:virumque.cano') eq 'arma:' ? '' : 'not '),"ok 13\n"; +$ENV{DEFAULT} = '' unless exists $ENV{DEFAULT}; print +(dirname('virumque.cano') eq $ENV{DEFAULT} ? '' : 'not '),"ok 14\n"; print +(dirname('arma/') eq '.' ? '' : 'not '),"ok 15\n"; |