Merge pull request #1 from rwstauner/bless-newer-perls

Copy string before blessing it to avoid error in newer perls
perlancar · Aug 3, 2011 · 0a1e1a2 · 0a1e1a2
2 parents fef79e6 + 16861b2
commit 0a1e1a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Object/BlankStr.pm b/lib/Object/BlankStr.pm
@@ -4,7 +4,7 @@ package Object::BlankStr;
 
 use overload q{""} => sub { "" };
 
-sub new { bless(\$_[0], $_[0]) }
+sub new { bless(\"$_[0]", $_[0]) }
 
 1;
 # ABSTRACT: Blank string object