Changeset 9568

Timestamp:

12/09/09 00:19:32 (2 years ago)

Author:

szabgab

Message:

[XL] add --perl flag replacing --devperl

Location:

trunk/Perl-Dist-XL

Files:

• lib/Perl/Dist/XL.pm (modified) (3 diffs)
• script/perldist_xl.pl (modified) (2 diffs)

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

@@ -16 +16 @@
 our $VERSION = '0.02';
 
-sub perl_version { return $_[0]->{devperl} ? '5.11.2' : '5.10.1'; }
+sub perl_version { return $_[0]->{perl} eq 'dev' ? '5.11.2' : '5.10.1'; }
 
 =head1 NAME
@@ -157 +157 @@
     chdir $self->{perl_source_dir};
     my $cmd = "sh Configure -Dusethreads -Duserelocatableinc -Dprefix='$self->{perl_install_dir}' -de";
-    $cmd .= " -Dusedevel" if $self->{devperl};
+    $cmd .= " -Dusedevel" if $self->{perl} ne 'stable';
     _system($cmd);
     _system("make");
@@ -397 +397 @@
         my $cmd0 = 'mycpan.pl';
         my $PERL = "$self->{perl_install_dir}/bin/perl";
-        $PERL .= $self->perl_version if $self->{devperl};
+        $PERL .= $self->perl_version if $self->{perl} ne 'stable';
         my $cmd = "$PERL $self->{perl_install_dir}/bin/$cmd0 $m->[0]";
         debug("system $cmd");

trunk/Perl-Dist-XL/script/perldist_xl.pl

@@ -24 +24 @@
     'build=s@',
     'zip',
-    'devperl',
+    'perl=s',
     ) or usage();
 usage() if $conf{help};
+usage('--perl is required') if not $conf{perl};
 #usage("need --download or --clean")
 #   if not $conf{download} 
@@ -51 +52 @@
        --zip           create the zip file
 
-       --devperl       given this flag we will use the latest development version of perl
-                       without this flag the latest stable version. (5.11.2 vs 5.10.1)
+       --perl [dev|stable|git]      which version of perl to use
+                       dev    = 5.11.2
+                       stable = 5.10.1
+                       git    = ????
 
        --dir           PATH/TO/DIR (defaults to ~/.perldist_xl)