Do not use Perl 5.10 defined-or operator, so we can run on Perl 5.8. C…

…loses #1.
gnp · May 6, 2012 · c784650 · c784650
1 parent 8adcd31
commit c784650
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/MAS/TIFF/Compression/LZW.pm b/lib/MAS/TIFF/Compression/LZW.pm
@@ -13,7 +13,7 @@ sub new {
   my $bytes = shift;
 
   return bless {
-    BYTES => $bytes // '',
+    BYTES => defined($bytes) ? $bytes : '',
     BYTE_INDEX => 0,
     BIT_INDEX => 0,
     BYTE => undef,
@@ -128,7 +128,7 @@ sub write_code {
 
 #  printf "Writing %d bit code %s\n", $size, $code;
 
-  my $byte = $self->{BYTE} // 0;
+  my $byte = defined($self->{BYTE}) ? $self->{BYTE} : 0;
   my $bit_index = $self->{BIT_INDEX};
 
   my $remaining = $size;