diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-25 15:03:21 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-25 15:03:21 +0000 |
commit | 295812e04a6d8f506d47682b9ea5e7e62b4afbf5 (patch) | |
tree | 66ec2425faa93fa49d09366e0f61ae0b010c89ef | |
parent | 6b14e5b9025a1b2de53ba9158f044abe6bf49180 (diff) | |
download | perl-295812e04a6d8f506d47682b9ea5e7e62b4afbf5.tar.gz |
Remove a now redundant require
p4raw-id: //depot/perl@31075
-rw-r--r-- | lib/overload.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/overload.pm b/lib/overload.pm index db201fa78f..23dbebbb4f 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -88,12 +88,11 @@ sub AddrRef { my $package = ref $_[0]; return "$_[0]" unless $package; - require Scalar::Util; - my $class = Scalar::Util::blessed($_[0]); - my $class_prefix = defined($class) ? "$class=" : ""; - my $type = Scalar::Util::reftype($_[0]); - my $addr = Scalar::Util::refaddr($_[0]); - return sprintf("$class_prefix$type(0x%x)", $addr); + my $class = Scalar::Util::blessed($_[0]); + my $class_prefix = defined($class) ? "$class=" : ""; + my $type = Scalar::Util::reftype($_[0]); + my $addr = Scalar::Util::refaddr($_[0]); + return sprintf("$class_prefix$type(0x%x)", $addr); } *StrVal = *AddrRef; |