This commit was manufactured by cvs2svn to create branch 'liverpm'.

[nethome.git] / bin / dirlistbases

diff --git a/bin/dirlistbases b/bin/dirlistbases
deleted file mode 100755 (executable)
index d89c5d2..0000000
--- a/bin/dirlistbases
+++ /dev/null
@@ -1,36 +0,0 @@
-#! /usr/bin/perl
-use strict;
-use warnings;
-
-my $tree;
-LINE: while (<>) {
-       chomp;
-       my $base=\$tree;
-       warn($_),next if !s#^/##;
-       warn($_),next if m#//#;
-       warn($_),next if m#/$#;
-       for (split qr#/#) {
-               next LINE if ${$base}->{""};
-               $base=\(${$base}->{$_});
-               }
-       ${$base}->{""}=1;
-       }
-#use Data::Dumper;
-#print Dumper $tree;
-
-sub out($$);
-sub out($$)
-{
-my($base,$where)=@_;
-
-       if ($base->{""}) {
-               print $where."\n";
-               return;
-               }
-       for (sort keys(%$base)) {
-               next if $_ eq "";
-               out($base->{$_},"$where/$_");
-               }
-}
-
-out($tree,"");