package IO::patch;

# The following code:
#    use CGI;  my $q= CGI->new();  open CGI, "< $0";
# gives:
#    Can't locate object method "new" via package "IO::Handle"
#
# But download this code and put it into lib/IO/patch.pm and
# either add "use IO::patch;" to your script or add
# PERL5OPT=-MIO::patch to your environment, and this problem
# goes away.

require IO::Handle;

my $oldNew= \&IO::Handle::new;

*IO::Handle::new= \&newNew;

sub newNew {
    my $pkg= $_[0];
    if(  UNIVERSAL::isa( $pkg, "GLOB" )  ) {
        my $name= *{$pkg}{NAME};
        my $can= UNIVERSAL::can( $name, "new" );
        if(  $can  ) {
            $_[0]= $name;
            goto &$can;
        }
        require Carp;
        Carp::cluck( "Called new() on an open IO::Handle?" )
            if  $^W;
    }
    goto &$oldNew;
}