From 14e22b2427415b5f2166d0fe502306fbe2455be1 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 30 Mar 2007 09:50:55 +0000 Subject: [PATCH] Do not attempt to delete old record if $oldid is undefined! --- lib/ZOOM/IRSpy.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index c4bae34..0ce0317 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.79 2007-03-29 11:54:53 mike Exp $ +# $Id: IRSpy.pm,v 1.80 2007-03-30 09:50:55 mike Exp $ package ZOOM::IRSpy; @@ -257,7 +257,7 @@ sub _really_rewrite_record { my $id = $xc->find("concat(e:serverInfo/e:host, ':', e:serverInfo/e:port, '/', e:serverInfo/e:database)"); - if ($id ne $oldid) { + if (defined $oldid && $id ne $oldid) { # Delete old record; warn "IDs differ (old='$oldid' new='$id')"; my $p = $conn->package(); -- 1.7.10.4