[poe-commits] SF.net SVN: poe: [2150] trunk/poe/t/30_loops/00_base/wheel_readline.pm

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

Revision: 2150
          http://svn.sourceforge.net/poe/?rev=2150&view=rev
Author:   rcaputo
Date:     2006-11-02 23:06:36 -0800 (Thu, 02 Nov 2006)

Log Message:
-----------
Skip Wheel::ReadLine tests when poll() is in play on MacOS X.  For
some reason poll() returns POLLNVAL when multiplexing TTYs.

Modified Paths:
--------------
    trunk/poe/t/30_loops/00_base/wheel_readline.pm

Modified: trunk/poe/t/30_loops/00_base/wheel_readline.pm
===================================================================
--- trunk/poe/t/30_loops/00_base/wheel_readline.pm	2006-11-03 02:45:24 UTC (rev 2149)
+++ trunk/poe/t/30_loops/00_base/wheel_readline.pm	2006-11-03 07:06:36 UTC (rev 2150)
@@ -120,7 +120,15 @@
   if ($^O eq "MSWin32") {
     $error = "$^O cannot multiplex terminals";
   }
-  elsif (!-t STDIN) {
+  if ($^O eq "darwin") {
+    foreach my $bad (qw(Event.pm IO/Poll.pm)) {
+      if (exists $INC{$bad}) {
+        $error = "$bad can't work with ttys under $^O";
+        last;
+      }
+    }
+  }
+  if (!-t STDIN) {
     $error = "not running in a terminal";
   }
   else {


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