Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Father C said switch the \!

  • Loading branch information...
commit e3599b5083b93ddb1f18de6da140292290913414 1 parent 452bc78
@jkeenan authored
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(@_) }
Please sign in to comment.
Something went wrong with that request. Please try again.