| 1 |
Author: mcummings |
| 2 |
Date: 2005-06-01 22:21:41 +0200 (Wed, 01 Jun 2005) |
| 3 |
New Revision: 38 |
| 4 |
|
| 5 |
Modified: |
| 6 |
trunk/bin/g-cpan.pl |
| 7 |
trunk/extra-docs/Changes |
| 8 |
Log: |
| 9 |
See Changes |
| 10 |
|
| 11 |
Modified: trunk/bin/g-cpan.pl |
| 12 |
=================================================================== |
| 13 |
--- trunk/bin/g-cpan.pl 2005-05-30 13:59:52 UTC (rev 37) |
| 14 |
+++ trunk/bin/g-cpan.pl 2005-06-01 20:21:41 UTC (rev 38) |
| 15 |
@@ -40,7 +40,7 @@ |
| 16 |
use constant ERR_FOLDER_OPEN => "Couldn't open folder '%s', %s"; # foldername, $! |
| 17 |
use constant ERR_FOLDER_CREATE => "Couldn't create folder '%s' : %s"; # foldername, $! |
| 18 |
|
| 19 |
-my $VERSION = "0.13"; |
| 20 |
+my $VERSION = "0.13.01"; |
| 21 |
my $prog = basename($0); |
| 22 |
|
| 23 |
my @perl_dirs = ( |
| 24 |
@@ -59,6 +59,13 @@ |
| 25 |
# Init all options (has to be done to perform the 'sum test' later) |
| 26 |
my ( $verbose, $search, $install, $upgrade, $generate, $list, $pretend, $ask ) = ( 0, 0, 0, 0, 0, 0, 0, 0 ); |
| 27 |
|
| 28 |
+ |
| 29 |
+# Set colors here so we can use them at will anywhere :) |
| 30 |
+my $green = color("bold green"); |
| 31 |
+my $white = color ("bold white"); |
| 32 |
+my $cyan = color("bold cyan"); |
| 33 |
+my $reset = color("reset"); |
| 34 |
+ |
| 35 |
#Get & Parse them |
| 36 |
GetOptions( |
| 37 |
'verbose|v' => \$verbose, |
| 38 |
@@ -73,11 +80,6 @@ |
| 39 |
) |
| 40 |
or exit_usage(); |
| 41 |
|
| 42 |
-# Set colors here so we can use them at will anywhere :) |
| 43 |
-my $green = color("bold green"); |
| 44 |
-my $white = color ("bold white"); |
| 45 |
-my $cyan = color("bold cyan"); |
| 46 |
-my $reset = color("reset"); |
| 47 |
|
| 48 |
# Output error if more than one switch is activated |
| 49 |
if ( $search + $list + $install + $generate + $upgrade + $pretend + $ask > 1 ) { |
| 50 |
@@ -88,7 +90,9 @@ |
| 51 |
} |
| 52 |
|
| 53 |
if ( $search + $list + $install + $generate + $upgrade + $pretend + $ask == 0 ) { |
| 54 |
- print_err("You haven't told $prog what to do. Exiting.\n"); |
| 55 |
+ print_err("You haven't told $prog what to do.\n"); |
| 56 |
+ print "${white}Please consult ${cyan}$prog ${green}--help${reset} or ${cyan}man $prog${reset} for more information\n\n"; |
| 57 |
+ |
| 58 |
exit(); |
| 59 |
} |
| 60 |
|
| 61 |
|
| 62 |
Modified: trunk/extra-docs/Changes |
| 63 |
=================================================================== |
| 64 |
--- trunk/extra-docs/Changes 2005-05-30 13:59:52 UTC (rev 37) |
| 65 |
+++ trunk/extra-docs/Changes 2005-06-01 20:21:41 UTC (rev 38) |
| 66 |
@@ -1,3 +1,8 @@ |
| 67 |
+01/06/2005 - mcummings |
| 68 |
+ |
| 69 |
+- Bumped version to 0.13.01 - basically, this is a maintenance update. The version bump was mandated because we needed to change the tarball name so that people would get the new version in their distfiles (otherwise portage thinks they already have a copy of g-cpan-0.13 and ignores that there's a newer version "upstream"). This will ensure folks get the changes made on 30/05/2005. |
| 70 |
+- Moved the color flags one more time per bug 94759 (http://bugs.gentoo.org/show_bug.cgi?id=94759) - usage was called before the colors it uses were being defined. |
| 71 |
+ |
| 72 |
30/05/2005 - mcummings |
| 73 |
|
| 74 |
- Commented out the rmdir of .cpan/build - this was causing weird random (harmless) error messages. Reviewing the code, we don't actually use this dir ourselves, but point to it for CPAN's build area. Since the default config for CPAN cleans this up itself, lets leave it at that for now. |
| 75 |
|
| 76 |
|
| 77 |
-- |
| 78 |
gentoo-perl@g.o mailing list |
Archives