[poe-commits] SF.net SVN: poe:[2479] trunk/poe/lib/POE/Resource/FileHandles.pm

[<ap...@us...>]

Revision: 2479
          http://poe.svn.sourceforge.net/poe/?rev=2479&view=rev
Author:   apocal
Date:     2009-03-01 20:06:23 +0000 (Sun, 01 Mar 2009)

Log Message:
-----------
tweaked the F_GETFL detection routine to be more portable, thanks dngor/p5p for the help!

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

Modified: trunk/poe/lib/POE/Resource/FileHandles.pm
===================================================================
--- trunk/poe/lib/POE/Resource/FileHandles.pm	2009-03-01 18:55:04 UTC (rev 2478)
+++ trunk/poe/lib/POE/Resource/FileHandles.pm	2009-03-01 20:06:23 UTC (rev 2479)
@@ -13,7 +13,8 @@
 
 use strict;
 
-use POSIX qw(:fcntl_h);
+# NOTE: we previously used POSIX but we're ripping out the middleman :)
+use Fcntl;
 
 ### Some portability things.
 
@@ -21,7 +22,10 @@
 # aren't used if we're RUNNING_IN_HELL, but Perl needs to see them.
 
 BEGIN {
-  if ( ! defined &F_GETFL ) {
+  # older perls than 5.10 needs a kick in the arse to AUTOLOAD the constant...
+  eval "F_GETFL" if $] < 5.010;
+
+  if ( ! defined &Fcntl::F_GETFL ) {
     if ( ! defined prototype "F_GETFL" ) {
       *F_GETFL = sub { 0 };
       *F_SETFL = sub { 0 };


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