Changeset 10100

Timestamp:

01/08/10 04:49:36 (2 years ago)

Author:

jquelin

Message:

fix #489: auto-detect dist-zilla based projects

Location:

trunk/Padre/lib/Padre

Files:

• Document.pm (modified) (1 diff)
• Util.pm (modified) (1 diff)
• Wx/Main.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Document.pm

@@ -1059 +1059 @@
         -f File::Spec->catpath( $v, $_, 'Makefile.PL' )
             or -f File::Spec->catpath( $v, $_, 'Build.PL' )
+            or -f File::Spec->catpath( $v, $_, 'dist.ini' )
             or -f File::Spec->catpath( $v, $_, 'padre.yml' );
     }

trunk/Padre/lib/Padre/Util.pm

@@ -410 +410 @@
         return $dir if -e File::Spec->catfile( $dir, 'Makefile.PL' );
         return $dir if -e File::Spec->catfile( $dir, 'Build.PL' );
+        return $dir if -e File::Spec->catfile( $dir, 'dist.ini' );
         $olddir = $dir;
         $dir    = File::Basename::dirname($dir);

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -1871 +1871 @@
             my $make = 'make'; # TODO this should do dmake, nmake on Win32
             $self->run_command("$make test");
+        } elsif ( -e 'dist.ini' ) {
+            $self->run_command("dzil test");
         } else {
-            $self->error( Wx::gettext("No Build.PL nor Makefile.PL found") );
+            $self->error( Wx::gettext("No Build.PL nor Makefile.PL nor dist.ini found") );
         }
     } else {