forked from Lainports/opnsense-ports
8cb1a96ede
Taken from: https://github.com/freebsd/freebsd-ports.git Commit id: 5070672073b68be364139bc6b3a89100bd17d331
12 lines
292 B
Perl
12 lines
292 B
Perl
--- 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 : "";
|
|
}
|
|
|
|
|