Permalink
Browse files

suppressed warnings when value is undef

  • Loading branch information...
kentaro committed Nov 4, 2011
1 parent 1b76da2 commit f8199063ed0482b36fd6bf5001ae230391d72be3
Showing with 6 additions and 1 deletion.
  1. +5 −0 Changes
  2. +1 −1 lib/Hash/Compact.pm
View
@@ -1,5 +1,10 @@
Revision history for Perl extension Hash::Compact
+0.03 2011-11-04
+
+ [TRIBIAL CHANGES]
+ - suppressed warnings when value is undef
+
0.02 2011-10-19
[TESTING ISSUE]
View
@@ -38,7 +38,7 @@ sub param {
my $option = $self->options->{$key} || {};
$key = $option->{alias_for} || $key;
- if (!ref $value && $value eq ($option->{default} || '')) {
+ if (defined $value && !ref $value && $value eq ($option->{default} || '')) {
delete $self->{$key};
}
else {

0 comments on commit f819906

Please sign in to comment.