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