Front page | perl.perl5.porters |
Postings from February 2007
[perl #41572] Subclassing CGI::Pretty dies in ->new
From:
jeremy @ chaos . org . uk
Date:
February 22, 2007 15:24
Subject:
[perl #41572] Subclassing CGI::Pretty dies in ->new
Message ID:
rt-3.6.HEAD-18680-1172144479-876.41572-75-0@perl.org
# New Ticket Created by jeremy@chaos.org.uk
# Please include the string: [perl #41572]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=41572 >
This is a bug report for perl from jeremy@chaos.org.uk,
generated with the help of perlbug 1.35 running under perl v5.8.7.
-----------------------------------------------------------------
If I create a module Jeremy::CGI that subclasses CGI::Pretty and call
Jeremy::CGI->new then Perl dies with
Undefined subroutine Jeremy::CGI::delete
at /data/www-jeremy/cgi-bin/cgi-jeremy line 9
Line 9 is the call to Jeremy::CGI->new . I have discussed this on
comp.lang.perl.misc (see the thread "Subclassing CGI::Pretty dies
instantly in ->new , bug?") and been advised to report it as a bug.
Here are the files:
>>> Jeremy/CGI.pm
use strict;
use warnings;
package Jeremy::CGI;
use base 'CGI::Pretty';
1; # success
<<< / Jeremy/CGI.pm
>>> CGI script
#!/usr/bin/perl
use strict;
use warnings;
use lib qw( /home/jeremy/Personal/Geeky/Perl/Lib );
use Jeremy::CGI;
my $query = Jeremy::CGI->new;
print
$query->header,
$query->start_html("Hi!"),
$query->p("boink"),
$query->ul($query->li("foo"),
$query->li("bar"),);
$query->end_html,
;
<<< / CGI script
The problem disappears if I replace "use base 'CGI::Pretty';" with
"use base 'CGI';" or if I replace "my $query = Jeremy::CGI->new;" with
"my $query = CGI::Pretty->new;".
-----------------------------------------------------------------
---
Flags:
category=library
severity=medium
---
Site configuration information for perl v5.8.7:
Configured by root at Mon Dec 5 05:39:04 GMT 2005.
Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
Platform:
osname=linux, osvers=2.6.9, archname=i686-linux
uname='linux knoppix 2.6.9 #2 smp tue oct 19 23:51:10 cest 2004 i686 athlon-4 i386 gnulinux '
config_args='-ds -e -Dprefix=/usr -Dpager=/bin/less -isR'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-fno-strict-aliasing -pipe -I/usr/local/include'
ccversion='', gccversion='3.4.3', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -ldl -lm -lcrypt -lutil -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=/lib/libc-2.3.4.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.3.4'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Locally applied patches:
---
@INC for perl v5.8.7:
/usr/lib/perl5/5.8.7/i686-linux
/usr/lib/perl5/5.8.7
/usr/lib/perl5/site_perl/5.8.7/i686-linux
/usr/lib/perl5/site_perl/5.8.7
/usr/lib/perl5/site_perl
.
---
Environment for perl v5.8.7:
HOME=/home/jeremy
LANG=en_GB.ISO-8859-1
LANGUAGE (unset)
LC_COLLATE=POSIX
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/bin:/usr/bin:/usr/X11R6/bin:/usr/games:/usr/local/bin:/home/jeremy/Bin:/data/rubygems/bin:/data/rubygems/gems/bin:/data/godi/data/bin:/data/godi/data/sbin:/home/jeremy/.packages/cent_inn/Bin:/home/jeremy/.packages/csound/Bin:/home/jeremy/.packages/doom/Bin:/home/jeremy/.packages/fltk/Bin:/home/jeremy/.packages/hades/Bin:/home/jeremy/.packages/mathematics/Bin:/home/jeremy/.packages/midi/Bin:/home/jeremy/.packages/mysql/Bin:/home/jeremy/.packages/perl/Bin:/home/jeremy/.packages/personal/Bin:/home/jeremy/.packages/pluto/Bin:/home/jeremy/.packages/provers/Bin:/home/jeremy/.packages/ruby-fltk/Bin:/home/jeremy/.packages/gentzen/bin
PERL_BADLANG (unset)
SHELL=/bin/bash