1 files changed, 0 insertions, 46 deletions
diff --git a/cpan/dist/Rcs/examples/ci-tree.pl b/cpan/dist/Rcs/examples/ci-tree.pl
deleted file mode 100755
index 4917ba1a..00000000
--- a/cpan/dist/Rcs/examples/ci-tree.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use File::Find;
-use File::Path;
-use Rcs;
-
-Rcs->bindir("/usr/bin");
-
-my $comment = shift;
-
-# Traverse desired filesystems
-
-my $tree_root = '/home/freter/tmp';
-my $rcs_path = '/RCS';
-my $src_path = '/src';
-
-find(\&wanted, $tree_root . $src_path);
-
-exit;
-
-sub wanted {
-    my $relative_path = $File::Find::dir;
-    ($relative_path) =~ s{^$tree_root$src_path}{};
-    print $relative_path;
-    print "\n";
-    mkpath([$tree_root . $rcs_path . $relative_path], 1, 0755);
-
-    return unless -f;
-    my $obj = Rcs->new;
-    $obj->file($_);
-    $obj->rcsdir($tree_root . $rcs_path . $relative_path);
-    $obj->workdir($tree_root . $src_path . $relative_path);
-
-    # archive file exists
-    if (! -e $obj->rcsdir . '/' . $obj->arcfile) {
-        print "Initial Check-in\n";
-        $obj->ci("-l", "-t-$comment");
-    }
-
-    # create archive file
-    else {
-        print "Check-in\n";
-        $obj->ci("-l", "-m$comment");
-    }
-}