>>>>> "Mihai" == Mihai Bazon <[EMAIL PROTECTED]> writes:

Mihai> I might be totally offtrack, but isn't this better:
Mihai>    use Scalar::Util 'refaddr';
Mihai>    my $atroot = refaddr($root) == refaddr($self);

Mihai> (assuming I understand correctly and $atroot should be true only if 
$root and
Mihai> $self point to the exact same object)

That adds a dependency, I think.  Scalar::Util is core only
in 5.8.

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[email protected]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

_______________________________________________
templates mailing list
[email protected]
http://lists.template-toolkit.org/mailman/listinfo/templates

Reply via email to