Skip Menu |

This queue is for tickets about the PodParser CPAN distribution.

Report information
The Basics
Id: 5613
Status: resolved
Priority: 0/
Queue: PodParser

People
Owner: Nobody in particular
Requestors: igg [...] nih.gov
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.26
Fixed in: (no value)



Subject: Bareword "gensym" not allowed while "strict subs" in use
$VERSION = 1.14, despite the file name being PodParser-1.26. Bareword "gensym" not allowed while "strict subs" in use at /System/Library/Perl/5.8.1/Pod/Parser.pm line 1158. Bareword "gensym" not allowed while "strict subs" in use at /System/Library/Perl/5.8.1/Pod/Parser.pm line 1158. Compilation failed in require at /System/Library/Perl/5.8.1/Pod/Man.pm line 30. Line 1158: my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); * gensym fails when strict subs are in use. * $] is 5.008001 on my system, which is 5.8.1. I'm assuming you meant my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.006); Sorry, I don't know how to fix the gensym problem, but what worked for me was chopping the line off after my ($in_fh, $out_fh);
Bareword "gensym" not allowed while "strict subs" in use at /usr/lib/perl5/5.8.3/Pod/Parser.pm line 1158. Bareword "gensym" not allowed while "strict subs" in use at /usr/lib/perl5/5.8.3/Pod/Parser.pm line 1158. This is perl, v5.8.3 built for i386-linux-thread-multi I ran into it while building mod_perl 1.29. [guest - Tue Mar 9 23:51:11 2004]: Show quoted text
> $VERSION = 1.14, despite the file name being PodParser-1.26. > Bareword "gensym" not allowed while "strict subs" in use at > /System/Library/Perl/5.8.1/Pod/Parser.pm line 1158. > Bareword "gensym" not allowed while "strict subs" in use at > /System/Library/Perl/5.8.1/Pod/Parser.pm line 1158. > Compilation failed in require at /System/Library/Perl/5.8.1/Pod/Man.pm > line 30. > > Line 1158: > my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); > > * gensym fails when strict subs are in use. > * $] is 5.008001 on my system, which is 5.8.1. I'm assuming you > meant > my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.006); > Sorry, I don't know how to fix the gensym problem, but what worked for > me was chopping the line off after my ($in_fh, $out_fh);
Thanks, will be fixed in Pod-Parser-1.31 -Marek