[poe-commits] SF.net SVN: poe: [2312] trunk/poe/lib/POE/Resource

[<rc...@us...>]

Revision: 2312
          http://poe.svn.sourceforge.net/poe/?rev=2312&view=rev
Author:   rcaputo
Date:     2008-04-18 22:49:16 -0700 (Fri, 18 Apr 2008)

Log Message:
-----------
Removal of POE::API::ResLoader broke POE::API::Peek.  This change
re-initializes $poe_kernel members that stopped being set by the
previous change.  Thanks to Niko Tyni of the Debian Perl Group for
pointing out the problem.

Modified Paths:
--------------
    trunk/poe/lib/POE/Resource/FileHandles.pm
    trunk/poe/lib/POE/Resource/Sessions.pm

Modified: trunk/poe/lib/POE/Resource/FileHandles.pm
===================================================================
--- trunk/poe/lib/POE/Resource/FileHandles.pm	2008-04-14 04:46:59 UTC (rev 2311)
+++ trunk/poe/lib/POE/Resource/FileHandles.pm	2008-04-19 05:49:16 UTC (rev 2312)
@@ -35,6 +35,7 @@
 ### more unique.
 
 my %kr_filenos;
+BEGIN { $poe_kernel->[KR_FILENOS] = \%kr_filenos; }
 
 sub FNO_MODE_RD      () { MODE_RD } # [ [ (fileno read mode structure)
 # --- BEGIN SUB STRUCT 1 ---        #
@@ -87,10 +88,6 @@
                             #      },
                             #    },
 
-sub _data_handle_preload {
-  $poe_kernel->[KR_FILENOS] = \%kr_filenos;
-}
-
 ### Begin-run initialization.
 
 sub _data_handle_initialize {

Modified: trunk/poe/lib/POE/Resource/Sessions.pm
===================================================================
--- trunk/poe/lib/POE/Resource/Sessions.pm	2008-04-14 04:46:59 UTC (rev 2311)
+++ trunk/poe/lib/POE/Resource/Sessions.pm	2008-04-19 05:49:16 UTC (rev 2312)
@@ -36,9 +36,7 @@
 sub SS_PROCESSES  () { 4 }
 sub SS_ID         () { 5 }
 
-sub _data_ses_preload {
-  $POE::Kernel::poe_kernel->[KR_SESSIONS] = \%kr_sessions;
-}
+BEGIN { $POE::Kernel::poe_kernel->[KR_SESSIONS] = \%kr_sessions; }
 
 ### End-run leak checking.
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.