Change 16206 by jhi@alpha on 2002/04/27 00:52:30
NetBSD and OpenBSD cannot do comments at #! line
(or long #! lines?)
Affected files ...
.... //depot/perl/t/japh/abigail.t#7 edit
Differences ...
==== //depot/perl/t/japh/abigail.t#7 (text) ====
Index: perl/t/japh/abigail.t
--- perl/t/japh/abigail.t.~1~ Fri Apr 26 19:00:06 2002
+++ perl/t/japh/abigail.t Fri Apr 26 19:00:06 2002
@@ -223,11 +223,11 @@
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
--
End of Patch.
