[Bps-public-commit] r14993 - in Shipwright/branches/2.0: lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Aug 11 06:04:01 2008
New Revision: 14993

Modified:
   Shipwright/branches/2.0/   (props changed)
   Shipwright/branches/2.0/lib/Shipwright/Backend/Base.pm
   Shipwright/branches/2.0/lib/Shipwright/Backend/FS.pm
   Shipwright/branches/2.0/lib/Shipwright/Backend/SVK.pm
   Shipwright/branches/2.0/lib/Shipwright/Backend/SVN.pm

Log:
 r15460 at sunnavys-mb:  sunnavy | 2008-08-11 17:16:25 +0800
 we have a better branch support flag now: shipwright/branches.yml


Modified: Shipwright/branches/2.0/lib/Shipwright/Backend/Base.pm
==============================================================================
--- Shipwright/branches/2.0/lib/Shipwright/Backend/Base.pm	(original)
+++ Shipwright/branches/2.0/lib/Shipwright/Backend/Base.pm	Mon Aug 11 06:04:01 2008
@@ -647,13 +647,22 @@
     $self->refs( $refs );
 }
 
+=item has_branch_support
 
-{
-    no warnings 'once';
-    *_cmd = *_update_file = *_subclass_method = *has_branch_support;
+return true if has branch support 
+
+=cut
+
+sub has_branch_support {
+    my $self = shift;
+    return 1 if $self->info( path => '/shipwright/branches.yml' );
+    return;
 }
 
 
+*_cmd = *_update_file = *_subclass_method;
+
+
 =back
 
 =cut

Modified: Shipwright/branches/2.0/lib/Shipwright/Backend/FS.pm
==============================================================================
--- Shipwright/branches/2.0/lib/Shipwright/Backend/FS.pm	(original)
+++ Shipwright/branches/2.0/lib/Shipwright/Backend/FS.pm	Mon Aug 11 06:04:01 2008
@@ -184,19 +184,6 @@
     copy( $latest, $file );
 }
 
-=item has_branch_support
-
-return true if has branch support 
-
-=cut
-
-sub has_branch_support {
-    my $self = shift;
-    my $out = $self->info( path => '/' );
-    return 1 if $out =~ /sources/;
-    return;
-}
-
 =back
 
 =cut

Modified: Shipwright/branches/2.0/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/branches/2.0/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/branches/2.0/lib/Shipwright/Backend/SVK.pm	Mon Aug 11 06:04:01 2008
@@ -257,18 +257,6 @@
     $self->checkout( detach => 1, target => $file );
 }
 
-=item has_branch_support
-
-return true if has branch support 
-
-=cut
-
-sub has_branch_support {
-    my $self = shift;
-    return 1 if $self->info( path => '/sources' );
-    return;
-}
-
 =back
 
 =cut

Modified: Shipwright/branches/2.0/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/branches/2.0/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/branches/2.0/lib/Shipwright/Backend/SVN.pm	Mon Aug 11 06:04:01 2008
@@ -259,18 +259,6 @@
     }
 }
 
-=item has_branch_support
-
-return true if has branch support 
-
-=cut
-
-sub has_branch_support {
-    my $self = shift;
-    return 1 if $self->info( path => '/sources' );
-    return;
-}
-
 =back
 
 =cut