summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-25 15:03:21 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-25 15:03:21 +0000
commit295812e04a6d8f506d47682b9ea5e7e62b4afbf5 (patch)
tree66ec2425faa93fa49d09366e0f61ae0b010c89ef
parent6b14e5b9025a1b2de53ba9158f044abe6bf49180 (diff)
downloadperl-295812e04a6d8f506d47682b9ea5e7e62b4afbf5.tar.gz
Remove a now redundant require
p4raw-id: //depot/perl@31075
-rw-r--r--lib/overload.pm11
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;