[Bast-commits] r6547 - local-lib/1.000/trunk/eg

hdp at dev.catalyst.perl.org hdp at dev.catalyst.perl.org
Mon Jun 8 19:46:24 GMT 2009


Author: hdp
Date: 2009-06-08 19:46:24 +0000 (Mon, 08 Jun 2009)
New Revision: 6547

Modified:
   local-lib/1.000/trunk/eg/scripted_install.pl
Log:
missing semicolon, remove ^Ms

Modified: local-lib/1.000/trunk/eg/scripted_install.pl
===================================================================
--- local-lib/1.000/trunk/eg/scripted_install.pl	2009-06-08 19:44:47 UTC (rev 6546)
+++ local-lib/1.000/trunk/eg/scripted_install.pl	2009-06-08 19:46:24 UTC (rev 6547)
@@ -1,19 +1,19 @@
-#!/usr/bin/perl
-# contributed by hdp at cpan.org
-
-use strict;
-use warnings;
-use CPAN;
-use Cwd;
-use File::Spec;
+#!/usr/bin/perl
+# contributed by hdp at cpan.org
+
+use strict;
+use warnings;
+use CPAN;
+use Cwd;
+use File::Spec;
 my $target = $ENV{TARGET} ? Cwd::abs_path($ENV{TARGET}) : undef;
-
-my $mod = CPAN::Shell->expand(Module => "local::lib");
-$mod->get;
-my $dir = CPAN::Shell->expand(Distribution => $mod->cpan_file)->dir;
-chdir($dir);
-my $make = $CPAN::Config->{make};
-my $bootstrap = $target ? "--bootstrap=$target" : "--bootstrap"
+
+my $mod = CPAN::Shell->expand(Module => "local::lib");
+$mod->get;
+my $dir = CPAN::Shell->expand(Distribution => $mod->cpan_file)->dir;
+chdir($dir);
+my $make = $CPAN::Config->{make};
+my $bootstrap = $target ? "--bootstrap=$target" : "--bootstrap";
 system($^X, 'Makefile.PL', $bootstrap) && exit 1;
-system($make, 'test') && exit 1;
-system($make, 'install') && exit 1;
+system($make, 'test') && exit 1;
+system($make, 'install') && exit 1;




More information about the Bast-commits mailing list