From 18fb57abfe6c3aa71788d4b2d4296b9f8a1843c0 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 6 Jul 2010 11:38:19 +0100 Subject: [PATCH] Avoid undefined variable warning when no ZOOM options precede specified ID. --- lib/ZOOM/IRSpy/Utils.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm index 089e8e7..475e9de 100644 --- a/lib/ZOOM/IRSpy/Utils.pm +++ b/lib/ZOOM/IRSpy/Utils.pm @@ -286,6 +286,7 @@ sub _irspy_identifier2target { if !defined $id; my($prefix, $protocol, $target) = ($id =~ /([^:]*,)?(.*?):(.*)/); + $prefix ||= ""; if (uc($protocol) eq "Z39.50" || uc($protocol) eq "TCP") { return "${prefix}tcp:$target"; } elsif (uc($protocol) eq "SRU") { -- 1.7.10.4