[ID 19990829.004] Autoloaded &VERSION and UNIVERSAL::VERSION don't mix

This is a bug report for perl from spider-perl@orb.nashua.nh.us,
generated with the help of perlbug 1.27 running under perl 5.00561.


-----------------------------------------------------------------
[Please enter your report here]

Depending on memory allocation patterns, the use of UNIVERSAL::VERSION
can cause a segfault if the target package has a stub declaration for
its &VERSION.  This is because it's not checking that the value it
gets back from its hv_fetch is really a GV, and in the case of stub
declarations it's an IV or a PV.

This fixes that, and causes it to understand an undef GvSV as well as
an undef gv as being "(undef)".

--- universal.c.DIST	Tue Jul 20 13:18:16 1999
+++ universal.c	Sun Aug 29 18:58:08 1999
@@ -197,7 +197,7 @@ XS(XS_UNIVERSAL_VERSION)
 
     gvp = pkg ? (GV**)hv_fetch(pkg,"VERSION",7,FALSE) : Null(GV**);
 
-    if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (sv = GvSV(gv))) {
+    if (gvp && isGV(gv = *gvp) && SvOK(sv = GvSV(gv))) {
         SV *nsv = sv_newmortal();
         sv_setsv(nsv, sv);
         sv = nsv;


[Please do not change anything below this line]
-----------------------------------------------------------------

---
Site configuration information for perl 5.00561:

Configured by spider at Fri Aug 27 06:56:26 EDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 61) configuration:
  Platform:
    osname=dec_osf, osvers=4.0, archname=alpha-dec_osf
    uname='osf1 orb.nashua.nh.us x4.0 834 alpha '
    config_args='-dsEO -Darchlib=/local/opt/perl/lib/5.00561/alpha-dec_osf -Dbin=/local/bin/exp -Dbinexp=/local/bin/exp -Dcc=cc -Dccflags=-std -I/usr/local/include -DDEBUGGING -DDEBUGGING_OPS -D_INTRINSICS -D_INLINE_INTRINSICS -Drand=__random -Dsrand=__srandom -DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC -DEMBEDMYMALLOC= -fprm d -ieee -Ud_bincompat3 -Ud_bincompat5005 -Dd_dosuid=define -Dinstallbin=/local/OSF1/alpha/bin/exp -Uinstallstyle= -Dlddlflags=-shared -msym -expect_unresolved "*" -g -std -Dldflags=-std -msym -g -Dlibswanted=sfio gdbm m -Dman1dir=/local/man/man1 -Dman1ext=1 -Dman3dir=/local/man/man3 -Dman3ext=3pl -Doptimize=-g -Dpager=/local/bin/less -Dprefix=/local/opt/perl -Dscriptdir=/local/share/exp -Dsitelib=/local/opt/perl/lib/site_perl/5.00561 -Dsitearch=/local/opt/perl/lib/site_perl/5.00561/alpha-dec_osf -Duseshrplib -Ud_safemcpy= -Ud_sfio= -Ui_dbm -Uinstallarchlib= -Uinstallprivlib= -Uinstallscript= -Uinstallsitearch= -Uinstallsitelib= -Uinstallusrbinperl -Ulibs= -U!
 pe!
!
!
rlpath= -Uprivlib= -Urandbits= -Uusethreads -Dusemymalloc=y -e'
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='cc', optimize='-g', gccversion=
    cppflags='-std -I/usr/local/include -DDEBUGGING -DDEBUGGING_OPS -D_INTRINSICS -D_INLINE_INTRINSICS -Drand=__random -Dsrand=__srandom -DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC -DEMBEDMYMALLOC= -ieee'
    ccflags ='-std -I/usr/local/include -DDEBUGGING -DDEBUGGING_OPS -D_INTRINSICS -D_INLINE_INTRINSICS -Drand=__random -Dsrand=__srandom -DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC -DEMBEDMYMALLOC= -fprm d -ieee'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=8, ptrsize=8, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='ld', ldflags ='-std -msym -g -L/usr/local/lib'
    libpth=/usr/local/lib /usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /var/shlib
    libs=-lgdbm -lm
    libc=/usr/shlib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='  -Wl,-rpath,/local/opt/perl/lib/5.00561/alpha-dec_osf/CORE'
    cccdlflags=' ', lddlflags='-shared -msym -expect_unresolved "*" -g -std -L/usr/local/lib'

Locally applied patches:
    

---
@INC for perl 5.00561:
    /local/opt/perl/lib/5.00561/alpha-dec_osf
    /local/opt/perl/lib/5.00561
    /local/opt/perl/lib/site_perl/5.00561/alpha-dec_osf
    /local/opt/perl/lib/site_perl
    .

---
Environment for perl 5.00561:
    HOME=/users/spider
    LANG=en_US.ISO8859-1
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/users/spider/bin/OSF1/alpha:/users/spider/bin:/local/OSF1/alpha/bin:/local/share:/local/OSF1/alpha/sbin:/local/etc:/usr/local:/tcb/bin:/usr/ccs/bin:/usr/bin:/usr/lbin:/usr/dt/bin:/usr/bin/X11:/usr/bin/mme:/usr/sbin:/sbin:/usr/field:/usr/opt/SWN200/bin:/local/OSF1/alpha/bin/mnt:/local/share/mnt:.
    PERL_BADLANG (unset)
    SHELL=/usr/bin/ksh
0
spider
8/29/1999 11:04:53 PM
perl.perl5.porters 47807 articles. 1 followers. Follow

0 Replies
513 Views

Similar Articles

[PageSpeed] 13

Reply:

Similar Artilces:

2007 version of firefox won't start! & version 2006 of thunderbird won't start
Name: Robert Calhoon Email: rjcalhoonatcomcastdotnet Product: Firefox Summary: 2007 version of firefox won't start! & version 2006 of thunderbird won't start Comments: sip these two go back to earlier version wait till starting gets fixed broke on office machine and home 4 pc's broke too. Browser Details: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.4) Gecko/20070515 Firefox/2.0.0.4 ...

Version of DSREPAIR when versions of eDir don't match.
I have always heard that if you have servers in your tree with slightly different versions of eDir on them, that you should make sure that they all have the version of DSREPAIR from the most up to date server. If I have a tree with many eDir 8.7.3.x servers and one eDir 8.8 server, should I copy the version 20216.51 DSREPAIR from the 8.8 server over to the 8.7.3.x servers? And how thorough do I need to be (just the NLM or do I need any of the other files like HLP, XML, MSG, NPM, JAR...)? -- daybrite ------------------------------------------------------------------------ ...

i don't like the changes from version 2 to version 3
Name: Steve Email: Qasaratshawdotca Product: Firefox Summary: i don't like the changes from version 2 to version 3 Comments: why was the downloads manager window changed?? its MUCH better on version 2 the auto complete feature when you type in web page adresses was also ALOT better in version 2, at least in version 2, the main page of the site was ALWAYS at the top of the list, as well as the way the dropdown list looked for the visted websites was alot neater as well ... please change these to back to the way version 2 had them.. or at the least allow for these opi...

Cannot Start Reporting Services ;The found version is 'T.0.8.39'. The expected version is 'C.0.8.39'.
I reinstalled reporting services on a default instance but I am getting this error?Does anyone know how to fix this...

[ID 19991126.004] perldoc -f -t and perldoc -t -f don't do the same thing
This is a bug report for perl from ged@jubileegroup.co.uk, generated with the help of perlbug 1.26 running under perl 5.00503. ----------------------------------------------------------------- [Please enter your report here] I used perldoc -f -t to get help on a function, instead of the correct perldoc -t -f. Although it is strictly correct that the form I used was strictly not correct, the output was garbage as opposed to something sensible. It looks as if the output is always the same, but I haven't tested that. Here's the output of `perldoc -f -t sub': (108 l...

[ID 20010524.004] perl5db.pl version 1.12 doesn't stop on breakpoints
This is a bug report for perl from dcd@tc.fluke.com, generated with the help of perlbug 1.33 running under perl v5.7.1. ----------------------------------------------------------------- [Please enter your report here] given a simple script $ cat -n l2 1 print 1; 2 print 2; $ perl -d l2 DB<1> b 2 DB<2> c does not stop on line 2, but continues till program terminates -- again a workaround is to use perl5db from 5.6.1 PERL5DB='BEGIN { require "/usr/local/lib/perl5/5.6.1/perl5db.pl" }' perl -d l2 ...

superreview requested: [Bug 418131] Need a way to detect GTK+ version so we don't break users on major update : [Attachment 309810] 1.8 branch version of patch
Reed Loden [:reed] <reed@reedloden.com> has asked Benjamin Smedberg [:bs] (bsmedberg) <benjamin@smedbergs.us> for superreview: Bug 418131: Need a way to detect GTK+ version so we don't break users on major update https://bugzilla.mozilla.org/show_bug.cgi?id=418131 Attachment 309810: 1.8 branch version of patch - v3 https://bugzilla.mozilla.org/attachment.cgi?id=309810&action=edit ------- Additional Comments from Reed Loden [:reed] <reed@reedloden.com> This is really the same as trunk (v6) but just with some fuzz or something fixed so it applies correctly...

superreview granted: [Bug 418131] Need a way to detect GTK+ version so we don't break users on major update : [Attachment 306437] 1.8 branch version of patch
Reed Loden [:reed] <reed@reedloden.com> has granted superreview: Bug 418131: Need a way to detect GTK+ version so we don't break users on major update https://bugzilla.mozilla.org/show_bug.cgi?id=418131 Attachment 306437: 1.8 branch version of patch - v2 https://bugzilla.mozilla.org/attachment.cgi?id=306437&action=edit ...

superreview granted: [Bug 418131] Need a way to detect GTK+ version so we don't break users on major update : [Attachment 309810] 1.8 branch version of patch
Benjamin Smedberg [:bs] (bsmedberg) <benjamin@smedbergs.us> has granted Reed Loden [:reed] <reed@reedloden.com>'s request for superreview: Bug 418131: Need a way to detect GTK+ version so we don't break users on major update https://bugzilla.mozilla.org/show_bug.cgi?id=418131 Attachment 309810: 1.8 branch version of patch - v3 https://bugzilla.mozilla.org/attachment.cgi?id=309810&action=edit ...

module ABI major version (2) doesn't match the server's version (9)
I've been trying to get my Wacom Bamboo Fun tablet to work with OpenSuse 11.3, 64bit. I've built the drivers, created the Xorg.conf, and it looks like things are trying to load. But the tablet isn't working. In the xorg.0.log I find: Code: -------------------- [ 389.710] (II) Loading /usr/lib64/xorg/modules/input/wacom_drv.so [ 389.710] (II) Module wacom: vendor="X.Org Foundation" [ 389.710] compiled for 4.3.99.902, module version = 1.0.0 [ 389.710] Module class: X.Org XInput Driver [ 389.710] ABI class: X.Org XInput driver, ver...

I don't like the new version and I'm going back to internet explorer
Name: Tina Grunst Email: tgrunstatyourstarnetdotnet Product: Firefox Summary: I don't like the new version and I'm going back to internet explorer Comments: I have tried everything to get back to the older version because ai hate the new one. I can't right click or as it seems do anything else to open something in a new tab. I do that alot and now I can't. I even tried many system restores and it didn't fix it, it just didn't open anything when I clicked on my shortcut. Your new version really is bad. Right now explorer works much better. My son a...

Till now it's very nice to have this version of Firefox 3. Don't have any problems:)
Name: Falecki Email: zbfatgazetadotpl Product: Firefox Release Candidate Summary: Till now it's very nice to have this version of Firefox 3. Don't have any problems:) Comments: - Browser Details: Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9b2) Gecko/2007121120 Firefox/3.0b2 ...

[ID 20000915.011] IPC::Open3 && IO::Select don't play nice together.
This is a bug report for perl from abigail@foad.org, generated with the help of perlbug 1.28 running under perl v5.6.0. ----------------------------------------------------------------- [Please enter your report here] #!/opt/perl/bin/perl -w use strict; use IPC::Open3; use IO::Select; my ($stdin, $stdout, $stderr); my $pid = open3 ($stdin, $stdout, $stderr, perl => '-e', 1); if ($@ && $@ =~ /^open3:/) { die "open3 failed: $@\n"; } my $select = IO::Select -> new ($stdin, $stdout, $stderr); ...

Beta versions 3.0.x don't have URLs, page no.'s on printouts (Mac OS X)
Name: Andrea Dencker Email: adenckeratoplinkdotnet Product: Firefox Release Candidate Summary: Beta versions 3.0.x don't have URLs, page no.'s on printouts (Mac OS X) Comments: I couldn't believe it when I downloaded the beta 3.x several months ago, and saw nothing in the page headers or footers of printouts. I really, really need this, and I know you've already put this feature into the PC Windows version. Please add it! I hate the idea of having to write a long URL on the bottom of the page, just so I know exactly where that printed page came from. Thanks! ...

Web resources about - [ID 19990829.004] Autoloaded &VERSION and UNIVERSAL::VERSION don't mix - perl.perl5.porters

Resources last updated: 12/10/2015 8:31:24 AM