Skip to content
Browse files

Father C said switch the \!

  • Loading branch information...
1 parent 452bc78 commit e3599b5083b93ddb1f18de6da140292290913414 @jkeenan committed Apr 29, 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);
+ 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);
+ !Internals::SvREADONLY($hash);
}
sub hash_unlocked(\%) { hashref_unlocked(@_) }

0 comments on commit e3599b5

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