Change 17695 by [EMAIL PROTECTED] on 2002/08/08 14:40:41
Subject: [PATCH] Re: [perl #15479] perl 5.8.0 segfault
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Fri, 2 Aug 2002 00:13:10 +0200
Message-id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/MANIFEST#927 edit
.... //depot/perl/perl.h#465 edit
.... //depot/perl/t/op/stash.t#1 add
Differences ...
==== //depot/perl/MANIFEST#927 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#926~17682~ Mon Aug 5 08:04:54 2002
+++ perl/MANIFEST Thu Aug 8 07:40:41 2002
@@ -2554,6 +2554,7 @@
t/op/split.t See if split works
t/op/sprintf.t See if sprintf works
t/op/srand.t See if srand works
+t/op/stash.t See if %:: stashes work
t/op/stat.t See if stat works
t/op/study.t See if study works
t/op/subst.t See if substitution works
==== //depot/perl/perl.h#465 (text) ====
Index: perl/perl.h
--- perl/perl.h#464~17641~ Fri Jul 19 09:31:08 2002
+++ perl/perl.h Thu Aug 8 07:40:41 2002
@@ -2396,6 +2396,7 @@
#ifndef Perl_error_log
# define Perl_error_log (PL_stderrgv \
+ && isGV(PL_stderrgv) \
&& GvIOp(PL_stderrgv) \
&& IoOFP(GvIOp(PL_stderrgv)) \
? IoOFP(GvIOp(PL_stderrgv)) \
==== //depot/perl/t/op/stash.t#1 (text) ====
Index: perl/t/op/stash.t
--- /dev/null Tue May 5 13:32:27 1998
+++ perl/t/op/stash.t Thu Aug 8 07:40:41 2002
@@ -0,0 +1,18 @@
+#!./perl
+
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = qw(../lib);
+}
+
+require "./test.pl";
+
+plan( tests => 1 );
+
+# Used to segfault (bug #15479)
+fresh_perl_is(
+ '%:: = ""',
+ 'Odd number of elements in hash assignment at - line 1.',
+ { switches => [ '-w' ] },
+ 'delete $::{STDERR} and print a warning',
+);
End of Patch.
