converters/p5-Unicode-String/files/patch-String.pm


1
2
3
4
5
6
7
8
9
10
11
12

--- String.pm~	Tue Mar 11 04:16:42 2003
+++ String.pm	Fri May  2 15:26:38 2003
@@ -128,7 +128,8 @@
     # This is different from perl's normal behaviour by not letting
     # a U+0030  ("0") be false.
     my $self = shift;
-    $$self ? 1 : "";
+    my $a = $$self;
+    $a ? 1 : "";
 }