Help for this page

Select Code to Download


  1. or download this
    17:01 >perl -we "package Foo; sub readpipe { die }; package main; BEGI
+N { my $rp = qq[main::readpipe]; *{ $rp } = \&Foo::readpipe; } print 
+readpipe('ls')"
Ambiguous call resolved as CORE::readpipe(), qualify as such or use & 
+at -e line 1.
...
1802_SoPW.pl
1803_CUfP
...
  2. or download this
    17:01 >perl -we "package Foo; sub readpipe { die }; package main; BEGI
+N { my $rp = qq[main::readpipe]; *{ $rp } = \&Foo::readpipe; } print 
+&readpipe('ls')"
Died at -e line 1.

17:04 >