From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 25 Apr 2007 15:03:21 +0000 (+0000)
Subject: Remove a now redundant require
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=295812e04a6d8f506d47682b9ea5e7e62b4afbf5;p=p5sagit%2Fp5-mst-13.2.git

Remove a now redundant require

p4raw-id: //depot/perl@31075
---

diff --git a/lib/overload.pm b/lib/overload.pm
index db201fa..23dbebb 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;