Package: libgetopt-euclid-perl Version: 0.2.0-1 Severity: minor Tags: patch
-------------------8<-------------------------8<------------------------ terce...@morere:~/tmp/perl$ cat sample #!/usr/bin/perl use Getopt::Euclid; use Data::Dumper; =pod =head1 REQUIRED ARGUMENTS =over =item <file> The input file =for Euclid: file.type: readable =back =cut print Dumper(\%ARGV), "\n"; terce...@morere:~/tmp/perl$ ./sample Variable "%STD_CONSTRAINT_FOR" will not stay shared at /usr/share/perl5/Getopt/Euclid.pm line 208. Missing required argument: <file> (Try: sample --help) terce...@morere:~/tmp/perl$ -------------------8<-------------------------8<------------------------ This seems to be related to perl 5.10, and is already reported upstream, with a patch available: http://rt.cpan.org/Public/Bug/Display.html?id=37182 Follows attached the patch I reproduced locally. Thanks, -- System Information: Debian Release: 5.0 APT prefers unstable APT policy: (500, 'unstable') Architecture: i386 (i686) Kernel: Linux 2.6.26-1-686 (SMP w/1 CPU core) Locale: LANG=pt_BR.utf8, LC_CTYPE=pt_BR.utf8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Versions of packages libgetopt-euclid-perl depends on: ii perl 5.10.0-19 Larry Wall's Practical Extraction ii perl-modules [libversion-perl 5.10.0-19 Core Perl modules libgetopt-euclid-perl recommends no packages. libgetopt-euclid-perl suggests no packages. -- no debconf information
diff -Nru libgetopt-euclid-perl-0.2.0.from-archive/lib/Getopt/Euclid.pm libgetopt-euclid-perl-0.2.0/lib/Getopt/Euclid.pm --- libgetopt-euclid-perl-0.2.0.from-archive/lib/Getopt/Euclid.pm 2009-01-11 19:10:14.000000000 -0300 +++ libgetopt-euclid-perl-0.2.0/lib/Getopt/Euclid.pm 2009-01-11 20:16:59.000000000 -0300 @@ -205,6 +205,7 @@ my %STD_CONSTRAINT_FOR; BEGIN { + no warnings 'closure'; %STD_CONSTRAINT_FOR = ( 'string' => sub { 1 }, # Always okay (matcher ensures this) 'integer' => sub { 1 }, # Always okay (matcher ensures this)