Permalink
Browse files

In retrospect, it was rather dumb to rename Poll.pm to IO-Poll.pm.

While the hyphen makes a great filesystem character, it's not very
good for package names.  Perl tends to think you're subtracting
barewords, and things just don't work out right.  This commit renames
IO-Poll.pm to IO_Poll.pm.  I hope this fixes it for good.
  • Loading branch information...
1 parent 2f68ef6 commit 20384ff038043841abbab7360fcb49eb3674f509 @rcaputo committed Sep 17, 2004
Showing with 6 additions and 6 deletions.
  1. +1 −1 MANIFEST
  2. +3 −3 lib/POE/Kernel.pm
  3. +2 −2 lib/POE/Loop/IO_Poll.pm
View
@@ -31,7 +31,7 @@ lib/POE/Kernel.pm
lib/POE/Loop.pm
lib/POE/Loop/Event.pm
lib/POE/Loop/Gtk.pm
-lib/POE/Loop/IO-Poll.pm
+lib/POE/Loop/IO_Poll.pm
lib/POE/Loop/PerlSignals.pm
lib/POE/Loop/Select.pm
lib/POE/Loop/Tk.pm
View
@@ -425,7 +425,7 @@ BEGIN {
# Create a module name by replacing the path separators with
# dashes and removing ".pm"
- my $module = join("-", @split_dirs);
+ my $module = join("_", @split_dirs);
substr($module, -3) = "";
# Skip the module name if it isn't legal.
@@ -439,10 +439,10 @@ BEGIN {
# Try for the XS version first. If it fails, try the plain
# version. If that fails, we're up a creek.
my $mod = "POE::XS::Loop::$module";
- eval "require $mod";
+ eval "use $mod";
if ($@ =~ /^Can't locate/) {
$mod = "POE::Loop::$module";
- eval "require $mod";
+ eval "use $mod";
}
next if $@ =~ /^Can't locate/;
View
@@ -5,7 +5,7 @@
# contributed by Matt Sergeant (baud).
# Empty package to appease perl.
-package POE::Loop::Poll;
+package POE::Loop::IO_Poll;
use vars qw($VERSION);
$VERSION = do {my@r=(q$Revision$=~/\d+/g);sprintf"%d."."%04d"x$#r,@r};
@@ -370,7 +370,7 @@ __END__
=head1 NAME
-POE::Loop::Event - a bridge that supports IO::Poll from POE
+POE::Loop::IO_Poll - a bridge that supports IO::Poll from POE
=head1 SYNOPSIS

0 comments on commit 20384ff

Please sign in to comment.