This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add system to avoidables.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Jul 2014 02:09:34 +0000 (22:09 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Jul 2014 14:16:58 +0000 (10:16 -0400)
pod/perlclib.pod
t/porting/libperl.t

index 7857ae0..7f86f1b 100644 (file)
@@ -224,7 +224,7 @@ everywhere by now.
                                PL_srand_called = TRUE; }
 
  exit(n)                     my_exit(n)
- system(s)                   Don't. Look at pp_system or use my_popen
+ system(s)                   Don't. Look at pp_system or use my_popen.
 
  getenv(s)                   PerlEnv_getenv(s)
  setenv(s, val)              my_putenv(s, val)
index 9562556..1ab1294 100644 (file)
@@ -486,9 +486,15 @@ for my $symbol (sort keys %expected) {
 #
 # strtol and strtoul are affected by locale.
 #
+# system should not be used, use pp_system or my_popen.
+#
 
 my %unexpected;
 
+for my $str (qw(system)) {
+    $unexpected{$str} = "d_$str";
+}
+
 for my $stdio (qw(gets fgets tmpfile sprintf vsprintf)) {
     $unexpected{$stdio} = undef; # No Configure symbol for these.
 }