Changeset 5873

Timestamp:

07/06/09 01:17:33 (3 years ago)

Author:

CSJewell

Message:

Allow Alien::wxWidgets to be installed from a .par file.

File:

• trunk/Perl-Dist-Padre/lib/Perl/Dist/Padre.pm (modified) (2 diffs)

trunk/Perl-Dist-Padre/lib/Perl/Dist/Padre.pm

@@ -25 +25 @@
 use warnings;
 use Perl::Dist::Strawberry ();
-
-our $VERSION = '0.260_003';
+use URI::file ();
+
+our $VERSION = '0.260_004';
 our @ISA     = 'Perl::Dist::Strawberry';
 
@@ -194 +195 @@
 
     # Install the Alien module
-    $self->install_module( name => 'Alien::wxWidgets'        );
-
+    if (defined $ENV{PERL_DIST_PADRE_ALIENWXWIDGETS_PAR_LOCATION}) {
+        my $filelist = $self->install_par(
+            name => 'Alien_wxWidgets', 
+            url => URI::file->new($ENV{PERL_DIST_PADRE_ALIENWXWIDGETS_PAR_LOCATION})->as_string(),
+        );
+        $self->insert_fragment( 'Alien_wxWidgets', $filelist->files );
+    } else {
+        $self->install_module( name => 'Alien::wxWidgets'        );
+    }
     # Install the Wx module over the top of alien module
     $self->install_module( name => 'Wx'                      );