Browse files

no need to ship stress

  • Loading branch information...
1 parent 920b837 commit 11e09ed2689a47363518c55507bc53560e070796 @petdance committed Dec 21, 2006
Showing with 13 additions and 0 deletions.
  1. +1 −0 MANIFEST.SKIP
  2. +12 −0 stress
View
1 MANIFEST.SKIP
@@ -0,0 +1 @@
+stress
View
12 stress
@@ -0,0 +1,12 @@
+#!perl
+
+use strict;
+use warnings;
+use File::Next;
+
+
+my $start = shift || '/Users/andy/src';
+my $iter = File::Next::files( { descend_filter => sub { $_ ne '.svn' } }, $start );
+while ( my $file = $iter->() ) {
+ print "$file\n";
+}

0 comments on commit 11e09ed

Please sign in to comment.