Skip to content
Browse files

Trying Father C's suggestion for hashref_locked and hashref_unlocked.

  • Loading branch information...
1 parent f6f3175 commit 452bc7869e2c7c98c848ab3ccfe9e3874fce33cf @jkeenan committed Apr 28, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Hash/Util.pm
View
4 lib/Hash/Util.pm
@@ -372,7 +372,7 @@ Returns true if the hash and its keys are locked.
sub hashref_locked {
my $hash=shift;
- Internals::SvREADONLY($hash) ? return 0 : return 1;
+ !Internals::SvREADONLY($hash);
}
sub hash_locked(\%) { hashref_locked(@_) }
@@ -390,7 +390,7 @@ Returns true if the hash and its keys are unlocked.
sub hashref_unlocked {
my $hash=shift;
- (! Internals::SvREADONLY($hash)) ? return 1 : return 0;
+ Internals::SvREADONLY($hash);
}
sub hash_unlocked(\%) { hashref_unlocked(@_) }

0 comments on commit 452bc78

Please sign in to comment.
Something went wrong with that request. Please try again.