Change 13032 by jhi@alpha on 2001/11/16 00:09:31
Subject: [PATCH t/io/argv.t OR t/test.pl] runperl(), \n and stdin
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Thu, 15 Nov 2001 19:26:40 -0500
Message-ID: <20011115192640.R31399@blackrider>
Affected files ...
.... //depot/perl/t/test.pl#11 edit
Differences ...
==== //depot/perl/t/test.pl#11 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~ Thu Nov 15 17:15:05 2001
+++ perl/t/test.pl Thu Nov 15 17:15:05 2001
@@ -223,6 +223,11 @@
$runperl .= qq( "$args{progfile}");
}
if (defined $args{stdin}) {
+ # so we don't try to put literal newlines and crs onto the
+ # command line.
+ $args{stdin} =~ s/\n/\\n/g;
+ $args{stdin} =~ s/\r/\\r/g;
+
if ($is_mswin || $is_netware || $is_vms) {
$runperl = qq{$^X -e "print qq(} .
$args{stdin} . q{)" | } . $runperl;
End of Patch.
