From 7f2e79c63495c6f505015be21eceda58f5d233a8 Mon Sep 17 00:00:00 2001
From: Max Baker <>
Date: Wed, 5 Mar 2003 19:29:07 +0000
Subject: [PATCH] error check in serial()

---
 Info/Layer2/HP.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Info/Layer2/HP.pm b/Info/Layer2/HP.pm
index 61db90bf..19eb59df 100644
--- 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;