diff options
| author | Slaven Rezic <slaven@rezic.de> | 2003-05-01 23:28:10 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-27 14:27:57 +0000 |
| commit | f509412828fa95d62b8d41774f816a14ba046cac (patch) | |
| tree | 4937c7898d892a2c3c146195cec3a7b41166aacc /lib/FindBin.t | |
| parent | 9e3321a52c584b81da92f45d40c4d1a7450665a1 (diff) | |
| download | perl-f509412828fa95d62b8d41774f816a14ba046cac.tar.gz | |
perl 5.8.0, FindBin::again
Message-ID: <873cjy31rp.fsf@vran.herceg.de>
p4raw-id: //depot/perl@21968
Diffstat (limited to 'lib/FindBin.t')
| -rwxr-xr-x | lib/FindBin.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/FindBin.t b/lib/FindBin.t index 80ac811d20..be6f58c3e0 100755 --- a/lib/FindBin.t +++ b/lib/FindBin.t @@ -5,7 +5,7 @@ BEGIN { @INC = -d 't' ? 'lib' : '../lib'; } -print "1..1\n"; +print "1..2\n"; use FindBin qw($Bin); @@ -17,3 +17,9 @@ if ($^O eq 'MacOS') { print "not " unless $Bin =~ m,[/.]lib\]?$,; } print "ok 1\n"; + +$0 = "-"; +FindBin::again(); + +print "not " if $FindBin::Script ne "-"; +print "ok 2\n"; |