Lines Matching refs:locked
25 my %hash = (foo => 42, bar => 23, locked => 'yep');
41 lock_value(%hash, 'locked');
49 eval { delete $hash{locked} };
50 like( $@, qr/^Attempt to delete readonly key 'locked' from a restricted hash/,
51 'trying to delete a locked key' );
52 eval { $hash{locked} = 42; };
54 'trying to change a locked key' );
55 is( $hash{locked}, 'yep' );
67 eval { $hash{locked} = 42; };
70 eval { delete $hash{locked} },
73 unlock_value(%hash, 'locked');
74 $hash{locked} = 42;
75 is( $hash{locked}, 42, 'unlock_value' );
79 my %hash = ( foo => 42, locked => 23 );
113 ' locked');
131 like( $@, qr/^Attempt to access disallowed key 'wibble' in a restricted hash/, ' locked' );
161 like( $@, qr/^Attempt to access disallowed key 'I_DONT_EXIST' in a restricted hash/, 'locked %ENV');
188 'locked key never mentioned before should fail');
192 'previously locked place holders should also fail');
213 'previously locked place holders should fail');
245 = ($lock ? 'locked' : 'not locked') . ' keys ' . join ',', @usekeys;
277 # Check clear works on locked empty hashes - SEGVs on 5.8.2.
306 for my $state ('', 'locked') {