Change 31075 by [EMAIL PROTECTED] on 2007/04/25 15:03:21
Remove a now redundant require
Affected files ...
... //depot/perl/lib/overload.pm#54 edit
Differences ...
==== //depot/perl/lib/overload.pm#54 (text) ====
Index: perl/lib/overload.pm
--- perl/lib/overload.pm#53~31074~ 2007-04-25 07:53:57.000000000 -0700
+++ perl/lib/overload.pm 2007-04-25 08:03:21.000000000 -0700
@@ -88,12 +88,11 @@
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;
End of Patch.
