Permalink
Browse files

Rename the $do_uncompress variable to $assume_compression

I found it irksome that it was the only thing that didn't have the
same name as the option.
  • Loading branch information...
1 parent 13e3975 commit 04a2c805663f40e530b4169d439cc1255a1dc7c3 @avar avar committed Nov 6, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Data/FlexSerializer.pm
View
4 lib/Data/FlexSerializer.pm
@@ -174,7 +174,7 @@ sub serialize {
sub deserialize {
my $self = shift;
- my $do_uncompress = $self->{assume_compression}; # hot path, bypass accessor
+ my $assume_compression = $self->{assume_compression}; # hot path, bypass accessor
my $detect_compression = $self->{detect_compression}; # hot path, bypass accessor
my $detect_storable = $self->{detect_storable}; # hot path, bypass accessor
my $detect_sereal = $self->{detect_sereal}; # hot path, bypass accessor
@@ -192,7 +192,7 @@ sub deserialize {
my @out;
foreach my $serialized (@_) {
my $uncompr;
- if ($do_uncompress) {
+ if ($assume_compression) {
$uncompr = Compress::Zlib::uncompress(\$serialized);
unless (defined $uncompr) {
die "You've told me to assume compression but calling uncompress() on your input string returns undef";

0 comments on commit 04a2c80

Please sign in to comment.