I need to redefine localy one subroutine and have it correctlly after.
Who do I do it?
sub myPrint () {
print Teste 1\n;
}
sub test {
no strict refs;
no warnings;
my $str = ::myPrint;
#my $backup = $main::{myPrint};
my $backup = *$str;
*$str = sub() {
sub myPrint () {
print Teste 1\n;
}
sub test() {
no strict refs;
no warnings;
my $subName = ::myPrint;
my $backup = \myPrint;
*$subName = sub() {
print Teste 2\n;
};
myPrint;
*$subName = $backup;
}
myPrint;
test;
myPrint;
On 8/3/05,
marcos rebelo wrote:
I need to redefine localy one subroutine and have it correctlly after.
Who do I do it?
sub myPrint () {
print Teste 1\n;
}
sub test {
no strict refs;
no warnings;
my $str = ::myPrint;
#my $backup = $main::{myPrint};
my $backup =
On 8/3/05, John W. Krahn [EMAIL PROTECTED] wrote:
marcos rebelo wrote:
I need to redefine localy one subroutine and have it correctlly after.
How do I do it?
$ perl -e'
my $myPrint = sub { print Teste 1\n };
sub test { $myPrint = sub { print Teste 2\n } }
$myPrint-();
test;