From 0a1e4e6dd5c9ae9524f05d02c9d8a1d49f99f8c9 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 20 Sep 2007 10:12:19 +0000 Subject: [PATCH 1/1] Belt-and-braces check --- lib/ZOOM/IRSpy/Utils.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm index a59442b..de1e690 100644 --- a/lib/ZOOM/IRSpy/Utils.pm +++ b/lib/ZOOM/IRSpy/Utils.pm @@ -1,4 +1,4 @@ -# $Id: Utils.pm,v 1.35 2007-06-28 13:59:31 sondberg Exp $ +# $Id: Utils.pm,v 1.36 2007-09-20 10:12:19 mike Exp $ package ZOOM::IRSpy::Utils; @@ -205,6 +205,9 @@ sub irspy_identifier2target { sub _irspy_identifier2target { my($id) = @_; + confess "_irspy_identifier2target(): id is undefined" + if !defined $id; + my($protocol, $target) = ($id =~ /(.*?):(.*)/); if (uc($protocol) eq "Z39.50") { return "tcp:$target"; -- 1.7.10.4