perform system() arg processing before fork
authorZefram <zefram@fysh.org>
Sat, 16 Dec 2017 05:33:20 +0000 (05:33 +0000)
committerZefram <zefram@fysh.org>
Sat, 16 Dec 2017 05:33:20 +0000 (05:33 +0000)
A lot of things can happen when stringifying an argument list: side
effects, warnings, exceptions.  In the case of system(), these effects
should happen in the context of the parent process.  The stringification
can also depend on which process it happens in, as in the case of
$$, and in that case it should also happen in the parent process.
Therefore reduce the argument scalars to strings first thing in pp_system.
Fixes [perl #121105].

pod/perldelta.pod
pp_sys.c
t/op/exec.t

index c3ed508..fb5b7cf 100644 (file)
@@ -596,6 +596,13 @@ or C<unimport> method.  It is now treated like any other string C<1>.
 
 =item *
 
+C<system> now reduces its arguments to strings in the parent process, so
+any effects of stringifying them (such as overload methods being called
+or warnings being emitted) are visible in the way the program expects.
+[perl #121105]
+
+=item *
+
 The C<readpipe()> built-in function now checks at compile time that
 it has only one parameter expression, and puts it in scalar context,
 thus ensuring that it doesn't corrupt the stack at runtime.  [perl #4574]
index 337769b..d94bf2f 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4392,14 +4392,18 @@ PP(pp_system)
     int result;
 # endif
 
+    while (++MARK <= SP) {
+       SV *origsv = *MARK;
+       STRLEN len;
+       char *pv;
+       pv = SvPV(origsv, len);
+       *MARK = newSVpvn_flags(pv, len,
+                   (SvFLAGS(origsv) & SVf_UTF8) | SVs_TEMP);
+    }
+    MARK = ORIGMARK;
+
     if (TAINTING_get) {
        TAINT_ENV();
-       while (++MARK <= SP) {
-           (void)SvPV_nolen_const(*MARK);      /* stringify for taint check */
-           if (TAINT_get)
-               break;
-       }
-       MARK = ORIGMARK;
        TAINT_PROPER("system");
     }
     PERL_FLUSHALL_FOR_CHILD;
index b55cbda..d696163 100644 (file)
@@ -36,7 +36,7 @@ $ENV{LANGUAGE} = 'C';         # Ditto in GNU.
 my $Is_VMS   = $^O eq 'VMS';
 my $Is_Win32 = $^O eq 'MSWin32';
 
-plan(tests => 38);
+plan(tests => 41);
 
 my $Perl = which_perl();
 
@@ -192,6 +192,19 @@ TODO: {
         or printf "# \$! eq %d, '%s'\n", $!, $!;
 }
 
+package CountRead {
+    sub TIESCALAR { bless({ n => 0 }, $_[0]) }
+    sub FETCH { ++$_[0]->{n} }
+}
+my $cr;
+tie $cr, "CountRead";
+is system($^X, "-e", "exit(\$ARGV[0] eq '1' ? 0 : 1)", $cr), 0,
+    "system args have magic processed exactly once";
+is tied($cr)->{n}, 1, "system args have magic processed before fork";
+
+is system($^X, "-e", "exit(\$ARGV[0] eq \$ARGV[1] ? 0 : 1)", "$$", $$), 0,
+    "system args have magic processed before fork";
+
 my $test = curr_test();
 exec $Perl, '-le', qq{${quote}print 'ok $test - exec PROG, LIST'${quote}};
 fail("This should never be reached if the exec() worked");