Re^5: restore overridden XS methods

I'm not sure I understand what you mean?

## Assign appropriate values to 3 different slots in the glob
*t = sub{ print 42 }; *t = \'fred'; *t = [ 1,2,3];;

## And print them
print join "\n", t(), $t, "@t";;
42
1
fred
1 2 3

## Locally override the code slot and print them--the others are untou
+ched.
{
    local *t = sub { print 'changed' }; 
    print join "\n", t(), $t, "@t"; 
};;
Subroutine main::t redefined at (eval 5) line 1, <STDIN> line 3.
changed
1
fred
1 2 3

## print them again having exited the block, 
## and they all retain their original values
print join "\n", t(), $t, "@t";;
42
1
fred
1 2 3
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Comment on Re^5: restore overridden XS methods Download Code

Replies are listed 'Best First'.
Re^6: restore overridden XS methods by bart (Canon) on Mar 02, 2007 at 01:11 UTC
Something has been changed, new magic in the localization of typeglobs. Because, even though I though get this pleasant result in 5.8.3, it's not at all what I get in 5.6.1: `$\ = "\n"; t = sub{ print 42 }; t = \'fred'; t = [ 1,2,3]; print $]; { local t = sub { print 'changed' }; print join "\n", t(), $t, "@t"; };` [download] results for 5.6.1 in `Possible unintended interpolation of @t in string at test.pl line 7. Use of uninitialized value in join or string at test.pl line 7. 5.006001 changed 1` [download] Thus: only the sub is set. Compare that to the result for 5.8.3: `Possible unintended interpolation of @t in string at test.pl line 7. Subroutine main::t redefined at test.pl line 6. 5.008003 changed 1 fred 1 2 3` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^6: restore overridden XS methods
by bart (Canon) on Mar 02, 2007 at 01:11 UTC

local

$\ = "\n";
*t = sub{ print 42 }; *t = \'fred'; *t = [ 1,2,3];
print $];
{
    local *t = sub { print 'changed' };
    print join "\n", t(), $t, "@t";
};
[download]

Possible unintended interpolation of @t in string at test.pl line 7.
Use of uninitialized value in join or string at test.pl line 7.
5.006001
changed
1
[download]

Compare that to the result for 5.8.3:

Possible unintended interpolation of @t in string at test.pl line 7.
Subroutine main::t redefined at test.pl line 6.
5.008003
changed
1
fred
1 2 3
[download]

[reply]
[d/l]
[select]