Select and STDIN

[perl]

I have the following program that expresses a problem.  Can anyone tell me
what I'm doing wrong?  The program works perfectly under Unix, but on
WinNT/2K, it just hangs.  (Note, the processor goes nuts regardless if I
pass can_read a timeout or not).  Performing a perl -d on the app shows
that it never makes it into the foreach ($select->can_read never passes
back a handle).

I would appreciate some assistance.  I must be doing something totally
dumb.

brian

#!perl
use strict;
use IO::Select;
use Data::Dumper;

my  $select = IO::Select->new( \*STDIN );

foreach my $fh ( $select->handles ) {
    print Data::Dumper->Dump( [ $fh ], [ qw($fh) ] );
}

for(;;) {
    #foreach my $fh ( $select->has_exception ) {
    foreach my $fh ( $select->can_read ) {
        if( $fh == \*STDIN ) {
            my  $input = <$fh>;
            exit if !defined $input;
            print "entered: $input";
        } else {
            exit;
        }
    }
}


_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs