X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FNet%2FZ3950%2FZOOM.pm;fp=lib%2FNet%2FZ3950%2FZOOM.pm;h=d739357fb582a93f6ed4c6ffc1ce8ee3d6b51755;hb=d4d5d78f39049f1558a9fbe8d122d89ad72ddacc;hp=ba2889b0df7913ad8d7d8c7493d2b141ab2a5df8;hpb=7e2d38ce308759b3a774d3f795225ee3bfb2c092;p=ZOOM-Perl-moved-to-github.git diff --git a/lib/Net/Z3950/ZOOM.pm b/lib/Net/Z3950/ZOOM.pm index ba2889b..d739357 100644 --- a/lib/Net/Z3950/ZOOM.pm +++ b/lib/Net/Z3950/ZOOM.pm @@ -1,4 +1,4 @@ -# $Id: ZOOM.pm,v 1.39 2008-06-09 13:50:00 mike Exp $ +# $Id: ZOOM.pm,v 1.40 2008-06-09 13:53:00 mike Exp $ package Net::Z3950::ZOOM; @@ -155,7 +155,6 @@ sub record_get { my $simpletype = $type; $simpletype =~ s/;.*//; - warn "record_get('$rec', '$simpletype' -> '$type')\n"; if (grep { $type eq $_ } qw(database syntax schema)) { return record_get_string($rec, $type); } else { @@ -165,7 +164,6 @@ sub record_get { if ($newtype !~ s/.*?;/xml;/) { $newtype = "xml"; } - warn "fallback('$rec', '$newtype')\n"; $val = record_get_binary($rec, $newtype); } return $val;