summaryrefslogtreecommitdiff
path: root/lib/overload.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/overload.pm')
-rw-r--r--lib/overload.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/overload.pm b/lib/overload.pm
index 31c88b75df..dbc3de6fbc 100644
--- a/lib/overload.pm
+++ b/lib/overload.pm
@@ -99,7 +99,7 @@ sub AddrRef {
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);
+ return sprintf("%s%s(0x%x)", $class_prefix, $type, $addr);
}
*StrVal = *AddrRef;