diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-12-31 18:45:37 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-12-31 18:45:37 +0000 |
| commit | 0cf35e6a9dd43c567c5c58f094ef1c96461c1230 (patch) | |
| tree | 289ce7b171b8e468f9c656cab40515866b7d61e0 /lib/CPAN/Debug.pm | |
| parent | cf6db12b45410d62d1d8568c336c79f938bf3310 (diff) | |
| download | perl-0cf35e6a9dd43c567c5c58f094ef1c96461c1230.tar.gz | |
Upgrade to CPAN-1.80_57
p4raw-id: //depot/perl@26553
Diffstat (limited to 'lib/CPAN/Debug.pm')
| -rw-r--r-- | lib/CPAN/Debug.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/CPAN/Debug.pm b/lib/CPAN/Debug.pm index 3a79da996f..a560630943 100644 --- a/lib/CPAN/Debug.pm +++ b/lib/CPAN/Debug.pm @@ -2,7 +2,7 @@ package CPAN::Debug; use strict; use vars qw($VERSION); -$VERSION = sprintf "%.2f", substr(q$Rev: 286 $,4)/100; +$VERSION = sprintf "%.2f", substr(q$Rev: 299 $,4)/100; # module is internal to CPAN.pm %CPAN::DEBUG = qw[ @@ -35,7 +35,8 @@ sub debug { ($caller) = caller(0); $caller =~ s/.*:://; $arg = "" unless defined $arg; - my $rest = join "|", map { defined $_ ? $_ : "UNDEF" } @rest; + pop @rest while @rest > 5; + my $rest = join ",", map { defined $_ ? $_ : "UNDEF" } @rest; if ($CPAN::DEBUG{$caller} & $CPAN::DEBUG){ if ($arg and ref $arg) { eval { require Data::Dumper }; |