X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=perl%2Flib%2FIDZebra%2FSession.pm;h=57dc36a4eb4c701c96374faeec181175d4564704;hb=b9eea3a2ebd3feae59bc8c01a70dbe8b9e0b807a;hp=a98a2326df5bb6017eb0b64eb75abd6768339c1d;hpb=20ba1d9d1d672f244ed83dee5224241df29378ea;p=idzebra-moved-to-github.git diff --git a/perl/lib/IDZebra/Session.pm b/perl/lib/IDZebra/Session.pm index a98a232..57dc36a 100644 --- a/perl/lib/IDZebra/Session.pm +++ b/perl/lib/IDZebra/Session.pm @@ -1,4 +1,4 @@ -# $Id: Session.pm,v 1.15 2003-03-13 04:25:18 pop Exp $ +# $Id: Session.pm,v 1.16 2003-05-07 20:51:12 pop Exp $ # # Zebra perl API header # ============================================================================= @@ -6,6 +6,7 @@ package IDZebra::Session; use strict; use warnings; +use Carp; BEGIN { use IDZebra; @@ -15,7 +16,7 @@ BEGIN { use IDZebra::ScanList; use IDZebra::RetrievalRecord; require Exporter; - our $VERSION = do { my @r = (q$Revision: 1.15 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + our $VERSION = do { my @r = (q$Revision: 1.16 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; our @ISA = qw(IDZebra::Logger Exporter); our @EXPORT = qw (TRANS_RW TRANS_RO); }