avoid undefined value warning in some case

master
joey 2006-08-15 18:06:55 +00:00
parent 87de5b822b
commit 3bf104e528
1 changed files with 1 additions and 1 deletions

View File

@ -233,7 +233,7 @@ sub pingurl (@) { #{{{
} }
my $r=$res->value; my $r=$res->value;
if (! exists $r->{flerror} || $r->{flerror}) { if (! exists $r->{flerror} || $r->{flerror}) {
debug("Ping rejected: ".$r->{message}); debug("Ping rejected: ".(exists $r->{message} ? $r->{message} : "[unknown reason]"));
} }
} }
} }