Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]4376[/thread]

trap output von IO::Select::trap.pm: trap output unterdrücken



<< >> 2 Einträge, 1 Seite
williwacker
 2005-09-26 18:52
#36878 #36878
User since
2005-09-26
1 Artikel
BenutzerIn
[default_avatar]
Hallo,
ich habe das SSH2 Paket für W32k von  SSH2 for W32Kinstalliert. Alles funktioniert wunderbar, nur wird aus dem Modul IO::Select::trap.pm von der Funktion _trapped eine Meldung an die Konsole geschickt. Weiss jemand, wie ich diese Ausgabe unterdrücken kann, ohne den Code in trap.pm ändern zu müssen, da der SSH Code von dem Benutzer selbst nachinstalliert werden sollte.
Code: (dl )
1
2
3
4
5
6
7
8
9
10
sub _trapped {
my ($self, $h) = @_;
if ((ref $h) =~ /$self->{traps}/i) {
carp (ref $h)." is trapped.";
return 1;
} else {
carp (ref $h)." is NOT trapped.";
return 0;
}
}
Strat
 2005-09-27 15:36
#36879 #36879
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
da muss es eine moeglichkeit geben, das ueber irgendwelche optionen beim Modulkonstruktor oder so zu steuern. sonst dem autor schreiben.

alternative: ich vermute mal, die kommt auf STDERR raus. einfach STDERR in eine datei umleiten?
Code: (dl )
open (STDERR, "> error.log") or die "Error: couldn't redirect STDERR: $!\n";


haessliche alternative: wenn die sub im namensraum IO::Select::trap steht, koenntest du die ueberschreiben, z.B
Code: (dl )
1
2
3
4
5
6
7
8
9
10
sub IO::Select::trap::_trapped {
my ($self, $h) = @_;
if ((ref $h) =~ /$self->{traps}/i) {
# carp (ref $h)." is trapped.";
return 1;
} else {
# carp (ref $h)." is NOT trapped.";
return 0;
}
}
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
<< >> 2 Einträge, 1 Seite



View all threads created 2005-09-26 18:52.