removing warning

This commit is contained in:
tipaul 2005-03-18 09:59:19 +00:00
parent f1f39317e6
commit 8a84d13bd7
1 changed files with 0 additions and 1 deletions

View File

@ -88,7 +88,6 @@ my $res;
my $bloc = $ISBD;
my $blocres;
foreach my $isbdfield (split /#/,$bloc) {
warn "ISBDFIELD : $isbdfield";
# $isbdfield= /(.?.?.?)/;
$isbdfield =~ /(\d\d\d)\|(.*)\|(.*)\|(.*)/;
my $fieldvalue=$1;