diff options
| -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 -- |