Changeset 11120 for trunk/Padre/lib/Padre/Action/Tools.pm

Timestamp:

03/15/10 04:51:54 (2 years ago)

Author:

azawawi

Message:

Perl tidy (25 files)

File:

• trunk/Padre/lib/Padre/Action/Tools.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/Action/Tools.pm

@@ -253 +253 @@
     # Find 'cpanm', used to install modules
     require Config;
-    my %seen  = ();
-    my @where = grep {
-        defined $_ and length $_ and not $seen{$_}++
-    } map {
-        $Config::Config{$_}
-    } qw{
+    my %seen = ();
+    my @where = grep { defined $_ and length $_ and not $seen{$_}++ } map { $Config::Config{$_} } qw{
         sitescriptexp
         sitebinexp
@@ -267 +263 @@
     };
     my $cpanm = '';
-    foreach my $dir ( @where ) {
+
+    foreach my $dir (@where) {
         my $path = File::Spec->catfile( $dir, 'cpanm' );
         if ( -f $path ) {
@@ -274 +271 @@
         }
     }
-    unless ( $cpanm ) {
+    unless ($cpanm) {
         $main->error( Wx::gettext("cpanm is unexpectedly not installed") );
         return;