perl et module cpan

Pàgina inicial

Reply to this message
Autor: anne.aublanc
Data:  
A: guilde
Assumpte: perl et module cpan
bonjour,

J'ai installé Modem::Vgetty

Et j'ai un petit problème...

Use of uninitialized value in pattern match (m//) at 
/usr/lib/perl5/5.8.5/i386-linux-thread-multi/IO/Handle.pm line 348.
Use of uninitialized value in concatenation (.) or string at 
/usr/lib/perl5/5.8.5/i386-linux-thread-multi/IO/Handle.pm line 358.
        (in cleanup) Can't call method "print" on an undefined value at 
/usr/lib/perl5/site_perl/5.8.5/Modem/Vgetty.pm line 95.
Can't call method "add_handler" on an undefined value at /bin/egetty  line 
82.


line 82 :
$v->add_handler( 'HANDSET_OFF_HOOK', 'abort', sub { $v->stop; exit 0; } );

ligne 348/358 : 
sub fdopen {
    @_ == 3 or croak 'usage: $io->fdopen(FD, MODE)';
    my ($io, $fd, $mode) = @_;
    local(*GLOB);


348 if (ref($fd) && "".$fd =~ /GLOB\(/o) {
        # It's a glob reference; Alias it as we cannot get name of anon GLOBs
        my $n = qualify(*GLOB);
        *GLOB = *{*$fd};
        $fd =  $n;
    } elsif ($fd =~ m#^\d+$#) {
        # It's an FD number; prefix with "=".
        $fd = "=$fd";
    }


358 open($io, _open_mode_string($mode) . '&' . $fd)
        ? $io : undef;
}


ligne 95 : 
sub send {
        my $self = shift;
        my $output = shift;
95      $self->{OUT}->print("$output\n");
        kill PIPE => $self->{PID};
        $self->{LOG}->print("sent: $output\n") if $testing > 0;
}


Si vous avez des idées pour corriger ce petit problème...

( du coup rien ne fonctionne !!!)

anne