This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove a now redundant require
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 25 Apr 2007 15:03:21 +0000 (15:03 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 25 Apr 2007 15:03:21 +0000 (15:03 +0000)
p4raw-id: //depot/perl@31075

lib/overload.pm

index db201fa..23dbebb 100644 (file)
@@ -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;