Changeset 745 for trunk/core/tools/check_requires.pl

Timestamp:

11/16/08 20:35:15 (4 years ago)

Author:

OlivierRaginel

Message:

Item38: Removed backticks, use File::Find

File:

• trunk/core/tools/check_requires.pl (modified) (1 diff)

trunk/core/tools/check_requires.pl

@@ -11 +11 @@
 # problems.
 #
+use File::Find;
+use strict;
+
 my $trace = 0;
-my @files = grep { !m#/CPAN/# } split(/\n/, `find ./TWiki -name '*.pm' -print`);
-my @modules = @files;
+my (@files, @modules);
+File::Find::find( sub { /\.pm\z/ && !m#/CPAN/#
+                          && push( @files, $File::Find::name )
+                          && push( @modules, $File::Find::name )
+                        }, './TWiki' );
 @modules = sort { length($a) < length($b) }
   map { s/\.pm$//; s#^\./##; s#/#::#g; $_ } @modules;