| From: | gregoa [...] cpan.org |
| Subject: | libnet-cups-perl: Segfaults in Net::CUPS::PPD method getNextOption when enumerating options |
We have the following bug reported to the Debian package of Net-CUPS
(https://bugs.debian.org/681085):
It doesn't seem to be a bug in the packaging, so you may want to take
a look. Thanks!
Please note that the bug report also contains a proposed patch.
------8<-----------8<-----------8<-----------8<-----------8<-----
Package: libnet-cups-perl
Version: 0.60-1
Severity: important
Tags: upstream
The following Perl script will crash with a segmentation fault. The expected
behaviour of getNextOption when there are no options left is to return undef.
use Net::CUPS;
use Net::CUPS::Destination;
use Net::CUPS::PPD;
use Data::Dumper;
use strict;
my $cups=Net::CUPS->new();
my $printer=$cups->getDestination("someprinter");
my $name=$printer->getName();
print("Printer name: $name\n");
my @options=$printer->getOptions();
foreach my $line (@options) {
my $opt=$printer->getOptionValue($line);
print("option: $line = $opt\n");
}
print("\n--- PPD options\n");
my $ppd=$cups->getPPD("tardisjet");
while(my $opt=$ppd->getNextOption()) {
print("Option:\n");
print Dumper $opt;
}
-- System Information:
Debian Release: 6.0.5
APT prefers stable-updates
APT policy: (500, 'stable-updates'), (500, 'stable')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.32-5-amd64 (SMP w/2 CPU cores)
Locale: LANG=es_ES.utf8, LC_CTYPE=es_ES.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages libnet-cups-perl depends on:
ii libc6 2.11.3-3 Embedded GNU C Library: Shared lib
ii libcups2 1.4.4-7+squeeze1 Common UNIX Printing System(tm) -
ii libgnutls26 2.8.6-1+squeeze2 the GNU TLS library - runtime libr
ii libgssapi-krb5-2 1.8.3+dfsg-4squeeze5 MIT Kerberos runtime libraries - k
ii perl 5.10.1-17squeeze3 Larry Wall's Practical Extraction
ii perl-base [perlapi- 5.10.1-17squeeze3 minimal Perl system
ii zlib1g 1:1.2.3.4.dfsg-3 compression library - runtime
libnet-cups-perl recommends no packages.
Versions of packages libnet-cups-perl suggests:
ii cups-common 1.4.4-7+squeeze1 Common UNIX Printing System(tm) -
-- no debconf information
------8<-----------8<-----------8<-----------8<-----------8<-----
Thanks for considering,
gregor herrmann,
Debian Perl Group