removing warning
This commit is contained in:
parent
f1f39317e6
commit
8a84d13bd7
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Reference in New Issue