diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-27 00:52:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-27 00:52:30 +0000 |
| commit | 4e508696a2c94d9a4c3d030a184a29b6631d2cc2 (patch) | |
| tree | 07a35d2f789cfae91de68aad488fa42725f799ac /t/japh | |
| parent | cbda53d5630fb826c2d06e07763221ee90547c7b (diff) | |
| download | perl-4e508696a2c94d9a4c3d030a184a29b6631d2cc2.tar.gz | |
NetBSD and OpenBSD cannot do comments at #! line
(or long #! lines?)
p4raw-id: //depot/perl@16206
Diffstat (limited to 't/japh')
| -rw-r--r-- | t/japh/abigail.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/japh/abigail.t b/t/japh/abigail.t index 06bba7a0ab..2391073645 100644 --- a/t/japh/abigail.t +++ b/t/japh/abigail.t @@ -223,11 +223,11 @@ plan tests => 130; END {unlink_all $progfile} my @programs = (<< ' --', << ' --'); -#!./perl -- # No trailing newline after the last line! +#!./perl BEGIN{$|=$SIG{__WARN__}=sub{$_=$_[0];y-_- -;print/(.)"$/;seek _,-open(_ ,"+<$0"),2;truncate _,tell _;close _;exec$0}}//rekcaH_lreP_rehtona_tsuJ -- -#!./perl -- # Remove trailing newline! +#!./perl BEGIN{$SIG{__WARN__}=sub{$_=pop;y-_- -;print/".*(.)"/; truncate$0,-1+-s$0;exec$0;}}//rekcaH_lreP_rehtona_tsuJ -- |