The requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
' kľ N '| Name | Last modified | Size | Description | |
|---|---|---|---|---|
| Parent Directory | - | |||
| dev | 2026-06-17 10:27 | 4.0K | ||
| power/ | 2026-06-17 13:37 | - | ||
| subsystem/ | 2026-06-16 09:59 | - | ||
| uevent | 2026-06-17 13:13 | 4.0K | ||
You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
+ 355ɾ c +The requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
+ -lze q6o 5_I|ye -#!/usr/bin/perl -I.. # Readonly hash tests use strict; use Test::More tests => 20; # Find the module (1 test) BEGIN {use_ok('Readonly'); } sub expected { my $line = shift; $@ =~ s/\.$//; # difference between croak and die return "Modification of a read-only value attempted at " . __FILE__ . " line $line\n"; } use vars qw/%h1/; my (%mh1, %mh2); # creation (3 tests) eval {Readonly::Hash %h1 => (a=>"A", b=>"B", c=>"C", d=>"D")}; is $@ => '', 'Create global hash'; eval {Readonly::Hash %mh1 => (one=>1, two=>2, three=>3, 4)}; like $@ => qr/odd number of values/, "Odd number of values"; eval {Readonly::Hash %mh1 => {one=>1, two=>2, three=>3, four=>4}}; is $@ => '', 'Create lexical hash'; # fetch (3 tests) is $h1{a} => 'A', 'Fetch global'; ok !defined $h1{'q'}, 'Nonexistent element undefined'; is $mh1{two} => 2, 'Fetch lexical'; # store (1 test) eval {$h1{a} = 'Z'}; is $@ => expected(__LINE__-1), 'Store'; # delete (1 test) eval {delete $h1{c}}; is $@ => expected(__LINE__-1), 'Delete'; # clear (1 test) eval {%h1 = ()}; is $@ => expected(__LINE__-1), 'Clear'; # exists (3 tests) ok exists $h1{a}, 'Exists'; eval {ok !exists $h1{x}, "Doesn't exist"}; is $@ => '', "Doesn't exist (no error)"; # keys, values (