| 1 |
Author: mcummings |
| 2 |
Date: 2005-05-11 16:44:08 +0200 (Wed, 11 May 2005) |
| 3 |
New Revision: 14 |
| 4 |
|
| 5 |
Modified: |
| 6 |
code/g-cpan.pl |
| 7 |
Log: |
| 8 |
Got rid of the regex cost and resorted to basename for prog |
| 9 |
|
| 10 |
Modified: code/g-cpan.pl |
| 11 |
=================================================================== |
| 12 |
--- code/g-cpan.pl 2005-05-11 13:59:01 UTC (rev 13) |
| 13 |
+++ code/g-cpan.pl 2005-05-11 14:44:08 UTC (rev 14) |
| 14 |
@@ -10,6 +10,7 @@ |
| 15 |
use diagnostics; |
| 16 |
use File::Spec; |
| 17 |
use File::Path; |
| 18 |
+use File::Basename; |
| 19 |
|
| 20 |
use constant MAKE_CONF => '/etc/make.conf'; |
| 21 |
use constant PATH_PKG_DEV_PERL => '/var/db/pkg/dev-perl'; |
| 22 |
@@ -41,8 +42,7 @@ |
| 23 |
# predeclared subs |
| 24 |
sub printbig; |
| 25 |
|
| 26 |
-my $prog = $0; |
| 27 |
-$prog =~ s|^.*/||; |
| 28 |
+my $prog = basename($0); |
| 29 |
|
| 30 |
# Do we need to generate a config ? |
| 31 |
eval 'use CPAN::Config;'; |
| 32 |
|
| 33 |
|
| 34 |
-- |
| 35 |
gentoo-perl@g.o mailing list |
Archives