Your IP : 216.73.216.124

Current Path : /proc/self/root/proc/8644/task/8644/root/proc/self/root/usr/share/perl/5.10.1/CPAN/
Upload File :
Current File : //proc/self/root/proc/8644/task/8644/root/proc/self/root/usr/share/perl/5.10.1/CPAN/Prompt.pm

# -*- 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;

Warning: Unknown: open(/var/www/iplanru/data/bin-tmp/sess_bbafc04ea52d3c2c1c10906dfb5cf59d, O_RDWR) failed: No space left on device (28) in Unknown on line 0

Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct (/var/www/iplanru/data/bin-tmp) in Unknown on line 0