Change 34147: [PATCH] test.pl

[Steve Hay]

Change 34147 by [EMAIL PROTECTED] on 2008/07/16 14:11:13

        Subject: [PATCH] test.pl
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Fri, 11 Jul 2008 11:07:07 -0400
        Message-ID: <[EMAIL PROTECTED]>
        
        Jerry found that localizing $? doesn't shield the effects of wait()
        unless you actually assign something to $?

Affected files ...

... //depot/perl/t/test.pl#82 edit

Differences ...

==== //depot/perl/t/test.pl#82 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#81~34109~    2008-07-08 01:02:16.000000000 -0700
+++ perl/t/test.pl      2008-07-16 07:11:13.000000000 -0700
@@ -829,8 +829,8 @@
 
             # Add END block to parent to terminate and
             #   clean up watchdog process
-            eval "END { local \$!; local \$?;
-                        wait() if kill('KILL', $watchdog); }";
+            eval "END { local \$! = 0; local \$? = 0;
+                        wait() if kill('KILL', $watchdog); };";
             return;
         }
 
@@ -841,8 +841,8 @@
             if ($watchdog) {   # Parent process
                 # Add END block to parent to terminate and
                 #   clean up watchdog process
-                eval "END { local \$!; local \$?;
-                            wait() if kill('KILL', $watchdog); }";
+                eval "END { local \$! = 0; local \$? = 0;
+                            wait() if kill('KILL', $watchdog); };";
                 return;
             }
 
End of Patch.