[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