stas 2003/09/16 18:57:35
Modified: t/net/perl sym.pl
. Changes
Log:
Fix t/net/perl/sym.pl (called by modules/symbol) not to affect other
tests (internal/http-get and internal/http-post, which were failing to
call exit)
Revision Changes Path
1.4 +14 -0 modperl/t/net/perl/sym.pl
Index: sym.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/sym.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- sym.pl 19 Jun 2002 16:31:52 -0000 1.3
+++ sym.pl 17 Sep 2003 01:57:35 -0000 1.4
@@ -22,3 +22,17 @@
delete $Apache::Registry->{+__PACKAGE__};
+# XXX: in perl 5.8.0+ the above delete happens to nuke the XSUB
+# of the imported __PACKAGE__ .'::exit'; which affects all other
+# namespaces which refer to this function in the same process.
+# e.g. it breaks internal/http-get and internal/http-post
+# which fail to call exit(),
+# /perl/perl-status/Apache::ROOT::perl::test::exit/FUNCTION?noh_peek
+# reveals that the XSUB entry becomes 0x0 after running modules/symbol
+# the following hack fixes that problem, by forcing a reload of
+# Apache.pm
+{
+ local $SIG{__WARN__} = sub { };
+ delete $INC{'Apache.pm'};
+ require Apache;
+}
1.678 +4 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.677
retrieving revision 1.678
diff -u -u -r1.677 -r1.678
--- Changes 16 Sep 2003 20:47:46 -0000 1.677
+++ Changes 17 Sep 2003 01:57:35 -0000 1.678
@@ -10,6 +10,10 @@
=item 1.28_01-dev
+Fix t/net/perl/sym.pl (called by modules/symbol) not to affect other
+tests (internal/http-get and internal/http-post, which were failing to
+call exit) [Stas]
+
Fix Apache::ExtUtils to work with blead perl (it was breaking the
build) http://rt.perl.org/rt2/Ticket/Display.html?id=23803 [Stas]
