develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r32623 - trunk/lib/Parrot

From:
bernhard
Date:
November 13, 2008 09:18
Subject:
[svn:parrot] r32623 - trunk/lib/Parrot
Message ID:
20081113171757.49B0CCB9AF@x12.develooper.com
Author: bernhard
Date: Thu Nov 13 09:17:56 2008
New Revision: 32623

Modified:
   trunk/lib/Parrot/Test.pm

Log:
[perl] Slight beautification in Parrot::Test


Modified: trunk/lib/Parrot/Test.pm
==============================================================================
--- trunk/lib/Parrot/Test.pm	(original)
+++ trunk/lib/Parrot/Test.pm	Thu Nov 13 09:17:56 2008
@@ -331,8 +331,8 @@
         }
     }
 
-    if ( $out and $err and "$out" eq "$err" ) {
-        $err = "&STDOUT";
+    if ( $out and $err and $out eq $err ) {
+        $err = '&STDOUT';
     }
 
     local *OLDOUT if $out;    ## no critic Variables::ProhibitConditionalDeclarations



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About