[svk-commit] r2314 - in trunk: lib/SVK

nobody at bestpractical.com nobody at bestpractical.com
Wed Mar 7 09:22:33 EST 2007


Author: clkao
Date: Wed Mar  7 09:22:32 2007
New Revision: 2314

Modified:
   trunk/   (props changed)
   trunk/lib/SVK/Path.pm
   trunk/lib/SVK/XD.pm

Log:
 r7496 at ubuntu:  clkao | 2007-03-07 09:38:47 +0000
 Remove dead code spotted by coverage.


Modified: trunk/lib/SVK/Path.pm
==============================================================================
--- trunk/lib/SVK/Path.pm	(original)
+++ trunk/lib/SVK/Path.pm	Wed Mar  7 09:22:32 2007
@@ -484,15 +484,6 @@
     return ($toroot, $root->fs->revision_root($copyfrom_rev, $ppool), $path);
 }
 
-sub _copies_contain_path {
-    my ($copy, $path) = @_;
-    my ($match) = grep { index ("$path/", "$_/") == 0 }
-	sort { length $b <=> length $a } keys %$copy;
-    return unless $match;
-    $path =~ s/^\Q$match\E/$copy->{$match}[1]/;
-    return ($copy->{$match}[0], $path);
-}
-
 =head2 related_to
 
 Check if C<$self> is related to another target.

Modified: trunk/lib/SVK/XD.pm
==============================================================================
--- trunk/lib/SVK/XD.pm	(original)
+++ trunk/lib/SVK/XD.pm	Wed Mar  7 09:22:32 2007
@@ -1902,14 +1902,4 @@
     $self->write;
 }
 
-package SVK::XD::Root;
-require SVK::Root;
-
-sub new {
-    my ($class, @arg) = @_;
-    unshift @arg, undef if $#arg == 0;
-    return SVK::Root->new({ txn => $arg[0], root => $arg[1]});
-}
-
-
 1;


More information about the svk-commit mailing list