summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl.straw/lib/CPAN/Debug.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-05-12 16:54:37 +0000
committerNorbert Preining <preining@logic.at>2010-05-12 16:54:37 +0000
commit661c41a09e39a182865e0b51e34cc995a0dc96e8 (patch)
tree2f79bb1406e22fdcb2587be8ffda6c0c609d7932 /Master/tlpkg/tlperl.straw/lib/CPAN/Debug.pm
parentb645030efc22e13c2498a1522083634ab91b2de1 (diff)
move tlperl.straw to tlperl
git-svn-id: svn://tug.org/texlive/trunk@18210 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/CPAN/Debug.pm')
-rwxr-xr-xMaster/tlpkg/tlperl.straw/lib/CPAN/Debug.pm79
1 files changed, 0 insertions, 79 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/CPAN/Debug.pm b/Master/tlpkg/tlperl.straw/lib/CPAN/Debug.pm
deleted file mode 100755
index 926b0d79b41..00000000000
--- a/Master/tlpkg/tlperl.straw/lib/CPAN/Debug.pm
+++ /dev/null
@@ -1,79 +0,0 @@
-# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
-package CPAN::Debug;
-use strict;
-use vars qw($VERSION);
-
-$VERSION = "5.5";
-# module is internal to CPAN.pm
-
-%CPAN::DEBUG = qw[
- CPAN 1
- Index 2
- InfoObj 4
- Author 8
- Distribution 16
- Bundle 32
- Module 64
- CacheMgr 128
- Complete 256
- FTP 512
- Shell 1024
- Eval 2048
- HandleConfig 4096
- Tarzip 8192
- Version 16384
- Queue 32768
- FirstTime 65536
-];
-
-$CPAN::DEBUG ||= 0;
-
-#-> sub CPAN::Debug::debug ;
-sub debug {
- my($self,$arg) = @_;
-
- my @caller;
- my $i = 0;
- while () {
- my(@c) = (caller($i))[0 .. ($i ? 3 : 2)];
- last unless defined $c[0];
- push @caller, \@c;
- for (0,3) {
- last if $_ > $#c;
- $c[$_] =~ s/.*:://;
- }
- for (1) {
- $c[$_] =~ s|.*/||;
- }
- last if ++$i>=3;
- }
- pop @caller;
- if ($CPAN::DEBUG{$caller[0][0]} & $CPAN::DEBUG) {
- if ($arg and ref $arg) {
- eval { require Data::Dumper };
- if ($@) {
- $CPAN::Frontend->myprint($arg->as_string);
- } else {
- $CPAN::Frontend->myprint(Data::Dumper::Dumper($arg));
- }
- } else {
- my $outer = "";
- local $" = ",";
- if (@caller>1) {
- $outer = ",[@{$caller[1]}]";
- }
- $CPAN::Frontend->myprint("Debug(@{$caller[0]}$outer): $arg\n");
- }
- }
-}
-
-1;
-
-__END__
-
-=head1 LICENSE
-
-This program is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut