This is patch.2b1f to perl5.002beta1.

cd to your perl source directory, execute the command above, and type
	patch -p1 -N < patch.2b1f

This patch includes patches for the following items:
	Changes.Conf
	Configure
	MANIFEST
	Makefile.SH
	XSUB.h
	ext/POSIX/POSIX.pm
	ext/POSIX/POSIX.pod
	ext/POSIX/POSIX.xs
	ext/Socket/Socket.pm
	gv.c
	lib/Cwd.pm
	lib/Sys/Syslog.pm
	lib/diagnostics.pm
	t/lib/socket.t
	toke.c
The changes are described after each /^Index/ line below.


These are each described in detail below, after the corresponding
index line.

Patch and enjoy,

    Andy Dougherty		doughera@lafcol.lafayette.edu
    Dept. of Physics
    Lafayette College, Easton PA 18042

1 files changed, 1 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index f4d03d22e3..36b7f70b76 100644
--- a/gv.c
+++ b/gv.c
@@ -225,7 +225,7 @@ char* name;
 	*nsplit = '\0';
 	if (strEQ(origname,"SUPER")) {
 	    /* Degenerate case ->SUPER::method should really lookup in original stash */
-	    SV *tmpstr = sv_2mortal(newSVpv(HvNAME(stash),0));
+	    SV *tmpstr = sv_2mortal(newSVpv(HvNAME(curcop->cop_stash),0));
 	    sv_catpvn(tmpstr, "::SUPER", 7);
 	    stash = gv_stashpv(SvPV(tmpstr,na),TRUE);
 	    *nsplit = ch;