hush debug output
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1130
07558da8-63fa-0310-ba24-
9fe276d99e06
=cut
our $VERSION = '0.01';
=cut
our $VERSION = '0.01';
$line =~ s{[\r\n]+$}{};
next if $line eq '';
$line =~ s{[\r\n]+$}{};
next if $line eq '';
+ warn "<< $line\n" if $debug;
if ( $line =~ m/^<(\d+)>$/ ) {
push @{ $self->{_rec} }, $rec if $rec;
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;
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;
$rec = { '000' => [ $1 ] };
} elsif ( $line =~ /^(\w.+)/ ) {
$tag = $1;
+ warn "++ $tag\n" if $debug;
} elsif ( $line =~ /^\s\s(.+)/ ) {
my $v = $1;
$v =~ s{[\s\.]+$}{};
$rec->{$tag} = [ $v ];
} else {
} elsif ( $line =~ /^\s\s(.+)/ ) {
my $v = $1;
$v =~ s{[\s\.]+$}{};
$rec->{$tag} = [ $v ];
} else {
- warn "### skip: '$line'\n";
+ warn "### skip: '$line'\n" if $debug;