MV_ZIP_REQUIRED —
Interchange 5.9.0:
Source: lib/Vend/Order.pm
Line 1234 (context shows lines 1224-1238 in _multizip():1224)
sub _multizip { my($ref,$var,$val) = @_; $val =~ s/^\s+//; my $error; my $cval = _get_cval($ref, $var); if (my $sub = $zip_routine{$cval}) { $sub->($val) or $error = 1; } elsif($::Variable->{MV_ZIP_REQUIRED}) { " $::Variable->{MV_ZIP_REQUIRED} " =~ /\s$cval\s/ and length($val) < 4 and $error = 1; }