r1768@llin: dpavlin | 2009-04-21 23:04:32 +0200

 hush debug output

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1130 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input/Ovid.pm b/lib/WebPAC/Input/Ovid.pm
index 9663473..d96a689 100644 (file)
--- a/lib/WebPAC/Input/Ovid.pm
+++ b/lib/WebPAC/Input/Ovid.pm
@@ -20,6 +20,7 @@ Version 0.01
 =cut
 
 our $VERSION = '0.01';
+our $debug = 0;
 
 =head1 SYNOPSIS
 
@@ -79,23 +80,23 @@ sub new {
                $line =~ s{[\r\n]+$}{};
                next if $line eq '';
 
-               warn "<< $line\n";
+               warn "<< $line\n" if $debug;
 
                if ( $line =~ m/^<(\d+)>$/ ) {
                        push @{ $self->{_rec} }, $rec if $rec;
-                       warn "## rec = ",dump( $rec ),$/;
+                       warn "## rec = ",dump( $rec ),$/ if $debug;
                        my $expect_rec = $#{ $self->{_rec} } + 2;
-                       warn "wrong Ovid record number: $1 != $expect_rec" unless $1 == $expect_rec;
+                       warn "wrong Ovid record number: $1 != $expect_rec" if $debug && $1 != $expect_rec;
                        $rec = { '000' => [ $1 ] };
                } elsif ( $line =~ /^(\w.+)/ ) {
                        $tag = $1;
-                       warn "++ $tag\n";
+                       warn "++ $tag\n" if $debug;
                } elsif ( $line =~ /^\s\s(.+)/ ) {
                        my $v = $1;
                        $v =~ s{[\s\.]+$}{};
                        $rec->{$tag} = [ $v ];
                } else {
-                       warn "### skip: '$line'\n";
+                       warn "### skip: '$line'\n" if $debug;
                }
 
        }