Files
pkgsrc-ng/print/hplip/patches/patch-prnt_hpijs_foomatic-rip-hplip
T
2016-01-21 23:41:46 +01:00

16 lines
489 B
Plaintext

$NetBSD: patch-prnt_hpijs_foomatic-rip-hplip,v 1.1 2015/06/17 10:21:02 wiz Exp $
perl-5.22 compatibility
--- prnt/hpijs/foomatic-rip-hplip.orig 2015-06-07 19:25:26.000000000 +0000
+++ prnt/hpijs/foomatic-rip-hplip
@@ -1653,7 +1653,7 @@ if ($#datablob >= 0) {
## if nexessary.
my $dontparse = 0;
-if ((!defined(@{$dat->{'args'}})) ||
+if ((!@{$dat->{'args'}}) ||
($#{$dat->{'args'}} < 0)) {
# We don't have any options, so we do not need to parse the
# PostScript data