Commits

Anonymous committed 3fd4e2c

Moved the tree script under the examples directory.

Comments (0)

Files changed (3)

 Changes
+examples/tree
 lib/File/Find/Object/Base.pm
 lib/File/Find/Object.pm
 Makefile.PL
 t/04destroy.t
 t/05prune.t
 t/lib/File/Find/Object/TreeCreate.pm
-tree
 t/sample-data/h.txt
+#!/usr/bin/perl
+
+# $Id$
+
+use strict;
+use warnings;
+use File::Find::Object;
+use Getopt::Long;
+
+my %options;
+
+GetOptions(
+    'd' => \$options{depth},
+    'n' => \$options{nonet},
+    'f' => \$options{nocrossfs},
+    'l' => \$options{followlink},
+);
+
+my $tree = File::Find::Object->new({ %options }, @ARGV);
+
+while (my $r = $tree->next()) {
+    print $r ."\n";
+}

tree

-#!/usr/bin/perl
-
-# $Id: tree,v 1.2 2005/06/18 20:35:38 nanardon Exp $
-
-use strict;
-use warnings;
-use File::Find::Object;
-use Getopt::Long;
-
-my %options;
-
-GetOptions(
-    'd' => \$options{depth},
-    'n' => \$options{nonet},
-    'f' => \$options{nocrossfs},
-    'l' => \$options{followlink},
-);
-
-my $tree = File::Find::Object->new({ %options }, @ARGV);
-
-while (my $r = $tree->next()) {
-    print $r ."\n";
-}