[Bps-public-commit] r13403 - in Shipwright/trunk: .

sunnavy at bestpractical.com sunnavy at bestpractical.com
Wed Jun 18 17:11:47 EDT 2008


Author: sunnavy
Date: Wed Jun 18 17:11:47 2008
New Revision: 13403

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Test.pm

Log:
 r13538 at sunnavys-mb:  sunnavy | 2008-06-19 02:45:08 +0800
 tidy a bit


Modified: Shipwright/trunk/lib/Shipwright/Test.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Test.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Test.pm	Wed Jun 18 17:11:47 2008
@@ -115,15 +115,15 @@
 =cut
 
 sub test_cmd {
-    my $repo   = shift;
-    my $cmd    = shift;
-    my $exp = shift;
-    my $msg    = shift;
+    my $repo = shift;
+    my $cmd  = shift;
+    my $exp  = shift;
+    my $msg  = shift;
 
     unshift @$cmd, $^X, '-MDevel::Cover' if devel_cover_enabled;
 
     require Test::More;
-    my $out = Shipwright::Util->run($cmd, 1); # ingnore failure
+    my $out = Shipwright::Util->run( $cmd, 1 );    # ingnore failure
     if ( ref $exp eq 'Regexp' ) {
         Test::More::like( $out, $exp, $msg );
     }



More information about the Bps-public-commit mailing list