error check in serial()

2003-03-05 19:29:07 +00:00
parent 947c8679c8
commit 7f2e79c634
1 changed files with 1 additions and 0 deletions
--- a/Info/Layer2/HP.pm
+++ b/Info/Layer2/HP.pm
@@ -131,6 +131,7 @@ sub serial {
    # procurve 2xxx have this
    my $serial = $hp->serial1();

+    return undef unless defined $serial;
    # 4xxx dont
    return undef if $serial =~ /nosuchobject/i;