[Bps-public-commit] r13661 - in Shipwright/trunk: lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun 27 14:14:59 2008
New Revision: 13661

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Backend/Base.pm
   Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
   Shipwright/trunk/lib/Shipwright/Backend/SVN.pm

Log:
 r13896 at sunnavys-mb:  sunnavy | 2008-06-28 01:42:06 +0800
 trivial change


Modified: Shipwright/trunk/lib/Shipwright/Backend/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/Base.pm	Fri Jun 27 14:14:59 2008
@@ -472,11 +472,10 @@
 
         return 1 if $info;
     }
-
     return;
 }
 
-=head2 update
+=item update
 
 you should subclass this method, and run this to get the file path with latest version
 
@@ -497,7 +496,8 @@
     return File::Spec->catfile( Shipwright::Util->share_root, $args{path} ),;
 }
 
-*_cmd = *update = *test_script = *propset = *_subclass_method;
+#*_cmd = *update = *test_script = *propset = *_subclass_method;
+*_cmd = *update = *_subclass_method;
 
 =back
 

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	Fri Jun 27 14:14:59 2008
@@ -262,6 +262,7 @@
     else {
         return $self->SUPER::check_repository(@_);
     }
+    return;
 }
 
 =item update

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	Fri Jun 27 14:14:59 2008
@@ -49,6 +49,7 @@
 
 sub import {
     my $self = shift;
+    return unless @_;
     return $self->SUPER::import( @_, delete => 1 );
 }
 
@@ -271,6 +272,7 @@
     else {
         return $self->SUPER::check_repository(@_);
     }
+    return;
 }
 
 =item update