Gentoo Logo
Gentoo Spaceship




Note: Due to technical difficulties, the Archives are currently not up to date. GMANE provides an alternative service for most mailing lists.
c.f. bug 424647
List Archive: gentoo-perl
Navigation:
Lists: gentoo-perl: < Prev By Thread Next > < Prev By Date Next >
Headers:
To: gentoo-perl@g.o
From: antoine.raillon@...
Subject: r38 - in trunk: bin extra-docs
Date: Wed, 1 Jun 2005 22:21:41 +0200 (CEST)
Author: mcummings
Date: 2005-06-01 22:21:41 +0200 (Wed, 01 Jun 2005)
New Revision: 38

Modified:
   trunk/bin/g-cpan.pl
   trunk/extra-docs/Changes
Log:
See Changes

Modified: trunk/bin/g-cpan.pl
===================================================================
--- trunk/bin/g-cpan.pl	2005-05-30 13:59:52 UTC (rev 37)
+++ trunk/bin/g-cpan.pl	2005-06-01 20:21:41 UTC (rev 38)
@@ -40,7 +40,7 @@
 use constant ERR_FOLDER_OPEN     => "Couldn't open folder '%s', %s";        # foldername, $!
 use constant ERR_FOLDER_CREATE   => "Couldn't create folder '%s' : %s";     # foldername, $!
 
-my $VERSION = "0.13";
+my $VERSION = "0.13.01";
 my $prog = basename($0);
 
 my @perl_dirs = (
@@ -59,6 +59,13 @@
 # Init all options (has to be done to perform the 'sum test' later)
 my ( $verbose, $search, $install, $upgrade, $generate, $list, $pretend, $ask  ) = ( 0, 0, 0, 0, 0, 0, 0, 0 );
 
+
+# Set colors here so we can use them at will anywhere :)
+my $green = color("bold green");
+my $white = color ("bold white");
+my $cyan = color("bold cyan");
+my $reset = color("reset");
+
 #Get & Parse them
 GetOptions(
     'verbose|v' => \$verbose,
@@ -73,11 +80,6 @@
   )
   or exit_usage();
 
-# Set colors here so we can use them at will anywhere :)
-my $green = color("bold green");
-my $white = color ("bold white");
-my $cyan = color("bold cyan");
-my $reset = color("reset");
 
 # Output error if more than one switch is activated
 if ( $search + $list + $install + $generate + $upgrade + $pretend + $ask > 1 ) {
@@ -88,7 +90,9 @@
 }
 
 if ( $search + $list + $install + $generate + $upgrade + $pretend + $ask == 0 ) {
-    print_err("You haven't told $prog what to do. Exiting.\n");
+    print_err("You haven't told $prog what to do.\n");
+	print "${white}Please consult ${cyan}$prog ${green}--help${reset} or ${cyan}man $prog${reset} for more information\n\n";
+
     exit();
     }
 

Modified: trunk/extra-docs/Changes
===================================================================
--- trunk/extra-docs/Changes	2005-05-30 13:59:52 UTC (rev 37)
+++ trunk/extra-docs/Changes	2005-06-01 20:21:41 UTC (rev 38)
@@ -1,3 +1,8 @@
+01/06/2005 - mcummings
+
+- 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.
+- 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.
+
 30/05/2005 - mcummings
 
 - 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.


-- 
gentoo-perl@g.o mailing list

Navigation:
Lists: gentoo-perl: < Prev By Thread Next > < Prev By Date Next >
Previous by thread:
r37 - in trunk: bin extra-docs
Next by thread:
r39 - in trunk: bin extra-docs
Previous by date:
Re: r37 - in trunk: bin extra-docs
Next by date:
r39 - in trunk: bin extra-docs


Updated Jun 17, 2009

Summary: Archive of the gentoo-perl mailing list.

Donate to support our development efforts.

Copyright 2001-2013 Gentoo Foundation, Inc. Questions, Comments? Contact us.