diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-11-30 22:16:51 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-12-02 15:43:16 +0000 |
| commit | e297595301ee5f3b0643be0fb1fffae9b6b548a0 (patch) | |
| tree | 180f2d7e6d134e4213582d3b546ed42908da3da8 /t/op/magic.t | |
| parent | 1a67fee7d910c67790fff4a69f2f20f7628aa80a (diff) | |
| download | perl-e297595301ee5f3b0643be0fb1fffae9b6b548a0.tar.gz | |
$0 mofifying part I
Subject: [PATCH] $0 modifying
Message-ID: <20021130181651.GA5876@kosh.hut.fi>
p4raw-id: //depot/perl@18229
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index f6958fd5dd..cbf8564497 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -257,7 +257,7 @@ else { open CMDLINE, "/proc/$$/cmdline") { chomp(my $line = scalar <CMDLINE>); my $me = (split /\0/, $line)[0]; - ok($me eq $0, 'altering $0 is effective', 'PL_origarg{c,v} copy breaks this'); + ok($me eq $0, 'altering $0 is effective'); close CMDLINE; } else { skip("\$0 check only on Linux and FreeBSD with /proc"); |