Revision: 2424
http://poe.svn.sourceforge.net/poe/?rev=2424&view=rev
Author: rcaputo
Date: 2009-02-10 06:36:41 +0000 (Tue, 10 Feb 2009)
Log Message:
-----------
POE::Session would clear $^W unconditionally, which we consider to be
bad. Localized $^W=0 to only affect the current block of code.
Thanks to Tod McQuillin on IRC for spotting the problem.
Modified Paths:
--------------
trunk/poe/lib/POE/Session.pm
Modified: trunk/poe/lib/POE/Session.pm
===================================================================
--- trunk/poe/lib/POE/Session.pm 2009-02-09 23:26:45 UTC (rev 2423)
+++ trunk/poe/lib/POE/Session.pm 2009-02-10 06:36:41 UTC (rev 2424)
@@ -41,7 +41,7 @@
no strict 'refs';
foreach my $name (@_) {
- BEGIN { $^W = 0 };
+ local $^W = 0;
next if defined *{"ASSERT_$name"}{CODE};
if (defined *{"POE::Kernel::ASSERT_$name"}{CODE}) {
@@ -63,7 +63,7 @@
sub _define_trace {
no strict 'refs';
- BEGIN { $^W = 0 };
+ local $^W = 0;
foreach my $name (@_) {
next if defined *{"TRACE_$name"}{CODE};
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|