summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPAN/Prompt.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
commit316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch)
treecb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/CPAN/Prompt.pm
parentcd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff)
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/Prompt.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/CPAN/Prompt.pm29
1 files changed, 0 insertions, 29 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/Prompt.pm b/Master/tlpkg/tlperl/lib/CPAN/Prompt.pm
deleted file mode 100755
index 7a4e2d81e13..00000000000
--- a/Master/tlpkg/tlperl/lib/CPAN/Prompt.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
-# vim: ts=4 sts=4 sw=4:
-package CPAN::Prompt;
-use overload '""' => "as_string";
-use vars qw($prompt);
-use vars qw(
- $VERSION
-);
-$VERSION = "5.5";
-
-
-$prompt = "cpan> ";
-$CPAN::CurrentCommandId ||= 0;
-sub new {
- bless {}, shift;
-}
-sub as_string {
- my $word = "cpan";
- unless ($CPAN::META->{LOCK}) {
- $word = "nolock_cpan";
- }
- if ($CPAN::Config->{commandnumber_in_prompt}) {
- sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;
- } else {
- "$word> ";
- }
-}
-
-1;