Author: mcummings
Date: 2005-05-15 20:09:54 +0200 (Sun, 15 May 2005)
New Revision: 31

Modified:
   trunk/bin/g-cpan.pl
Log:
just cleaning up commented out code

Modified: trunk/bin/g-cpan.pl
===================================================================
--- trunk/bin/g-cpan.pl	2005-05-15 17:47:18 UTC (rev 30)
+++ trunk/bin/g-cpan.pl	2005-05-15 18:09:54 UTC (rev 31)
@@ -40,11 +40,6 @@
 use constant ERR_FOLDER_OPEN     => "Couldn't open folder '%s', %s";        # foldername, $!
 use constant ERR_FOLDER_CREATE   => "Couldn't create folder '%s' : %s";     # foldername, $!
 
-# FIXME - cab
-# is it useful ?
-# predeclared subs
-sub printbig;
-
 my $VERSION = "0.13";
 my $prog = basename($0);
 
@@ -453,12 +448,7 @@
     }
 
     if ( my $exists = ebuild_exists($dir) ) {
-    	# Instead of exiting, we should just add the ebuild to the list of ebuilds to install
-	# That way, if they want to install something we already have an ebuild for from g-cpan, it doesn't
-	# die as well.
-        #printbig "Ebuild already exists for '$module_name': "
-        #  . &ebuild_exists($dir) . "\n";
-    	
+
 	# Just because an ebuild exists, doesn't mean we don't want to pass it on ;)
 	push @ebuild_list, "$exists";
         return;
@@ -769,24 +759,6 @@
 # Display subs #
 ################
 
-# jrray printing functions
-sub printbig {
-# FIXME cab
-# Rewrite using colors !
-# FIXING - cab
-# This sub should'nt be used now.
-# FIXME Sniper
-# 72 hard coded is bad
-    print '*' x 72, "\n";
-    print '*',   "\n";
-    print '*',   "\n";
-    print '*  ', @_;
-    print '*',   "\n";
-    print '*',   "\n";
-    print '*' x 72, "\n";
-}
-
-
 # cab - four (very fast) subs to help formating text output. Guess they could be improved a lot
 # maybe i should add a FIXME - Sniper around here.. :)
 # anyway, they expect a string and add a colored star at the beginning and the CR/LF


-- 
gentoo-perl@g.o mailing list