| 1 |
Author: mcummings |
| 2 |
Date: 2005-05-15 20:09:54 +0200 (Sun, 15 May 2005) |
| 3 |
New Revision: 31 |
| 4 |
|
| 5 |
Modified: |
| 6 |
trunk/bin/g-cpan.pl |
| 7 |
Log: |
| 8 |
just cleaning up commented out code |
| 9 |
|
| 10 |
Modified: trunk/bin/g-cpan.pl |
| 11 |
=================================================================== |
| 12 |
--- trunk/bin/g-cpan.pl 2005-05-15 17:47:18 UTC (rev 30) |
| 13 |
+++ trunk/bin/g-cpan.pl 2005-05-15 18:09:54 UTC (rev 31) |
| 14 |
@@ -40,11 +40,6 @@ |
| 15 |
use constant ERR_FOLDER_OPEN => "Couldn't open folder '%s', %s"; # foldername, $! |
| 16 |
use constant ERR_FOLDER_CREATE => "Couldn't create folder '%s' : %s"; # foldername, $! |
| 17 |
|
| 18 |
-# FIXME - cab |
| 19 |
-# is it useful ? |
| 20 |
-# predeclared subs |
| 21 |
-sub printbig; |
| 22 |
- |
| 23 |
my $VERSION = "0.13"; |
| 24 |
my $prog = basename($0); |
| 25 |
|
| 26 |
@@ -453,12 +448,7 @@ |
| 27 |
} |
| 28 |
|
| 29 |
if ( my $exists = ebuild_exists($dir) ) { |
| 30 |
- # Instead of exiting, we should just add the ebuild to the list of ebuilds to install |
| 31 |
- # That way, if they want to install something we already have an ebuild for from g-cpan, it doesn't |
| 32 |
- # die as well. |
| 33 |
- #printbig "Ebuild already exists for '$module_name': " |
| 34 |
- # . &ebuild_exists($dir) . "\n"; |
| 35 |
- |
| 36 |
+ |
| 37 |
# Just because an ebuild exists, doesn't mean we don't want to pass it on ;) |
| 38 |
push @ebuild_list, "$exists"; |
| 39 |
return; |
| 40 |
@@ -769,24 +759,6 @@ |
| 41 |
# Display subs # |
| 42 |
################ |
| 43 |
|
| 44 |
-# jrray printing functions |
| 45 |
-sub printbig { |
| 46 |
-# FIXME cab |
| 47 |
-# Rewrite using colors ! |
| 48 |
-# FIXING - cab |
| 49 |
-# This sub should'nt be used now. |
| 50 |
-# FIXME Sniper |
| 51 |
-# 72 hard coded is bad |
| 52 |
- print '*' x 72, "\n"; |
| 53 |
- print '*', "\n"; |
| 54 |
- print '*', "\n"; |
| 55 |
- print '* ', @_; |
| 56 |
- print '*', "\n"; |
| 57 |
- print '*', "\n"; |
| 58 |
- print '*' x 72, "\n"; |
| 59 |
-} |
| 60 |
- |
| 61 |
- |
| 62 |
# cab - four (very fast) subs to help formating text output. Guess they could be improved a lot |
| 63 |
# maybe i should add a FIXME - Sniper around here.. :) |
| 64 |
# anyway, they expect a string and add a colored star at the beginning and the CR/LF |
| 65 |
|
| 66 |
|
| 67 |
-- |
| 68 |
gentoo-perl@g.o mailing list |
Archives