perlquestion
jeremyh
I am having trouble overriding the "print" builtin.<br>
Here is an example that should override both "open" and "print".<br>
<code>
#! perl -w
use strict;
use subs qw( open print ) ;
print 2;
open(1,2) or die "$!: open() error";
sub open { CORE::print $_[0] + $_[1], "\n" }
sub print { CORE::print $_[0] + 10, "\n" }
</code>
Output is <br>
<br>
23
<br>
instead of<br>
12<br>
3<br>
<br>
It looks like "open" is being overridden, but not "print".