1#!./perl -w 2# 3# Copyright 2002, Larry Wall. 4# 5# You may redistribute only under the same terms as Perl 5, as specified 6# in the README file that comes with the distribution. 7# 8 9# I ought to keep this test easily backwards compatible to 5.004, so no 10# qr//; 11 12# This test checks downgrade behaviour on pre-5.8 perls when new 5.8 features 13# are encountered. 14 15sub BEGIN { 16 unshift @INC, 't'; 17 require Config; import Config; 18 if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) { 19 print "1..0 # Skip: Storable was not built\n"; 20 exit 0; 21 } 22} 23 24use Test::More; 25use Storable 'thaw'; 26 27use strict; 28use vars qw(@RESTRICT_TESTS %R_HASH %U_HASH $UTF8_CROAK $RESTRICTED_CROAK); 29 30@RESTRICT_TESTS = ('Locked hash', 'Locked hash placeholder', 31 'Locked keys', 'Locked keys placeholder', 32 ); 33%R_HASH = (perl => 'rules'); 34 35if ($] > 5.007002) { 36 # This is cheating. "\xdf" in Latin 1 is beta S, so will match \w if it 37 # is stored in utf8, not bytes. 38 # "\xdf" is y diaresis in EBCDIC (except for cp875, but so far no-one seems 39 # to use that) which has exactly the same properties for \w 40 # So the tests happen to pass. 41 my $utf8 = "Schlo\xdf" . chr 256; 42 chop $utf8; 43 44 # \xe5 is V in EBCDIC. That doesn't have the same properties w.r.t. \w as 45 # an a circumflex, so we need to be explicit. 46 47 # and its these very properties we're trying to test - an edge case 48 # involving whether scalars are being stored in bytes or in utf8. 49 my $a_circumflex = (ord ('A') == 193 ? "\x47" : "\xe5"); 50 %U_HASH = (map {$_, $_} 'castle', "ch${a_circumflex}teau", $utf8, chr 0x57CE); 51 plan tests => 169; 52} elsif ($] >= 5.006) { 53 plan tests => 59; 54} else { 55 plan tests => 67; 56} 57 58$UTF8_CROAK = "/^Cannot retrieve UTF8 data in non-UTF8 perl/"; 59$RESTRICTED_CROAK = "/^Cannot retrieve restricted hash/"; 60 61my %tests; 62{ 63 local $/ = "\n\nend\n"; 64 while (<DATA>) { 65 next unless /\S/s; 66 unless (/begin ([0-7]{3}) ([^\n]*)\n(.*)$/s) { 67 s/\n.*//s; 68 warn "Dodgy data in section starting '$_'"; 69 next; 70 } 71 next unless oct $1 == ord 'A'; # Skip ASCII on EBCDIC, and vice versa 72 my $data = unpack 'u', $3; 73 $tests{$2} = $data; 74 } 75} 76 77# use Data::Dumper; $Data::Dumper::Useqq = 1; print Dumper \%tests; 78sub thaw_hash { 79 my ($name, $expected) = @_; 80 my $hash = eval {thaw $tests{$name}}; 81 is ($@, '', "Thawed $name without error?"); 82 isa_ok ($hash, 'HASH'); 83 ok (defined $hash && eq_hash($hash, $expected), 84 "And it is the hash we expected?"); 85 $hash; 86} 87 88sub thaw_scalar { 89 my ($name, $expected, $bug) = @_; 90 my $scalar = eval {thaw $tests{$name}}; 91 is ($@, '', "Thawed $name without error?"); 92 isa_ok ($scalar, 'SCALAR', "Thawed $name?"); 93 if ($bug and $] == 5.006) { 94 # Aargh. <expletive> <expletive> 5.6.0's harness doesn't even honour 95 # TODO tests. 96 warn "# Test skipped because eq is buggy for certain Unicode cases in 5.6.0"; 97 warn "# Please upgrade to 5.6.1\n"; 98 ok ("I'd really like to fail this test on 5.6.0 but I'm told that CPAN auto-dependancies mess up, and certain vendors only ship 5.6.0. Get your vendor to ugrade. Else upgrade your vendor."); 99 # One such vendor being the folks who brought you LONG_MIN as a positive 100 # integer. 101 } else { 102 is ($$scalar, $expected, "And it is the data we expected?"); 103 } 104 $scalar; 105} 106 107sub thaw_fail { 108 my ($name, $expected) = @_; 109 my $thing = eval {thaw $tests{$name}}; 110 is ($thing, undef, "Thawed $name failed as expected?"); 111 like ($@, $expected, "Error as predicted?"); 112} 113 114sub test_locked_hash { 115 my $hash = shift; 116 my @keys = keys %$hash; 117 my ($key, $value) = each %$hash; 118 eval {$hash->{$key} = reverse $value}; 119 like( $@, "/^Modification of a read-only value attempted/", 120 'trying to change a locked key' ); 121 is ($hash->{$key}, $value, "hash should not change?"); 122 eval {$hash->{use} = 'perl'}; 123 like( $@, "/^Attempt to access disallowed key 'use' in a restricted hash/", 124 'trying to add another key' ); 125 ok (eq_array([keys %$hash], \@keys), "Still the same keys?"); 126} 127 128sub test_restricted_hash { 129 my $hash = shift; 130 my @keys = keys %$hash; 131 my ($key, $value) = each %$hash; 132 eval {$hash->{$key} = reverse $value}; 133 is( $@, '', 134 'trying to change a restricted key' ); 135 is ($hash->{$key}, reverse ($value), "hash should change"); 136 eval {$hash->{use} = 'perl'}; 137 like( $@, "/^Attempt to access disallowed key 'use' in a restricted hash/", 138 'trying to add another key' ); 139 ok (eq_array([keys %$hash], \@keys), "Still the same keys?"); 140} 141 142sub test_placeholder { 143 my $hash = shift; 144 eval {$hash->{rules} = 42}; 145 is ($@, '', 'No errors'); 146 is ($hash->{rules}, 42, "New value added"); 147} 148 149sub test_newkey { 150 my $hash = shift; 151 eval {$hash->{nms} = "http://nms-cgi.sourceforge.net/"}; 152 is ($@, '', 'No errors'); 153 is ($hash->{nms}, "http://nms-cgi.sourceforge.net/", "New value added"); 154} 155 156# $Storable::DEBUGME = 1; 157thaw_hash ('Hash with utf8 flag but no utf8 keys', \%R_HASH); 158 159if (eval "use Hash::Util; 1") { 160 print "# We have Hash::Util, so test that the restricted hashes in <DATA> are valid\n"; 161 for $Storable::downgrade_restricted (0, 1, undef, "cheese") { 162 my $hash = thaw_hash ('Locked hash', \%R_HASH); 163 test_locked_hash ($hash); 164 $hash = thaw_hash ('Locked hash placeholder', \%R_HASH); 165 test_locked_hash ($hash); 166 test_placeholder ($hash); 167 168 $hash = thaw_hash ('Locked keys', \%R_HASH); 169 test_restricted_hash ($hash); 170 $hash = thaw_hash ('Locked keys placeholder', \%R_HASH); 171 test_restricted_hash ($hash); 172 test_placeholder ($hash); 173 } 174} else { 175 print "# We don't have Hash::Util, so test that the restricted hashes downgrade\n"; 176 my $hash = thaw_hash ('Locked hash', \%R_HASH); 177 test_newkey ($hash); 178 $hash = thaw_hash ('Locked hash placeholder', \%R_HASH); 179 test_newkey ($hash); 180 $hash = thaw_hash ('Locked keys', \%R_HASH); 181 test_newkey ($hash); 182 $hash = thaw_hash ('Locked keys placeholder', \%R_HASH); 183 test_newkey ($hash); 184 local $Storable::downgrade_restricted = 0; 185 thaw_fail ('Locked hash', $RESTRICTED_CROAK); 186 thaw_fail ('Locked hash placeholder', $RESTRICTED_CROAK); 187 thaw_fail ('Locked keys', $RESTRICTED_CROAK); 188 thaw_fail ('Locked keys placeholder', $RESTRICTED_CROAK); 189} 190 191if ($] >= 5.006) { 192 print "# We have utf8 scalars, so test that the utf8 scalars in <DATA> are valid\n"; 193 thaw_scalar ('Short 8 bit utf8 data', "\xDF", 1); 194 thaw_scalar ('Long 8 bit utf8 data', "\xDF" x 256, 1); 195 thaw_scalar ('Short 24 bit utf8 data', chr 0xC0FFEE); 196 thaw_scalar ('Long 24 bit utf8 data', chr (0xC0FFEE) x 256); 197} else { 198 print "# We don't have utf8 scalars, so test that the utf8 scalars downgrade\n"; 199 thaw_fail ('Short 8 bit utf8 data', $UTF8_CROAK); 200 thaw_fail ('Long 8 bit utf8 data', $UTF8_CROAK); 201 thaw_fail ('Short 24 bit utf8 data', $UTF8_CROAK); 202 thaw_fail ('Long 24 bit utf8 data', $UTF8_CROAK); 203 local $Storable::drop_utf8 = 1; 204 my $bytes = thaw $tests{'Short 8 bit utf8 data as bytes'}; 205 thaw_scalar ('Short 8 bit utf8 data', $$bytes); 206 thaw_scalar ('Long 8 bit utf8 data', $$bytes x 256); 207 $bytes = thaw $tests{'Short 24 bit utf8 data as bytes'}; 208 thaw_scalar ('Short 24 bit utf8 data', $$bytes); 209 thaw_scalar ('Long 24 bit utf8 data', $$bytes x 256); 210} 211 212if ($] > 5.007002) { 213 print "# We have utf8 hashes, so test that the utf8 hashes in <DATA> are valid\n"; 214 my $hash = thaw_hash ('Hash with utf8 keys', \%U_HASH); 215 my $a_circumflex = (ord ('A') == 193 ? "\x47" : "\xe5"); 216 for (keys %$hash) { 217 my $l = 0 + /^\w+$/; 218 my $r = 0 + $hash->{$_} =~ /^\w+$/; 219 cmp_ok ($l, '==', $r, sprintf "key length %d", length $_); 220 cmp_ok ($l, '==', $_ eq "ch${a_circumflex}teau" ? 0 : 1); 221 } 222 if (eval "use Hash::Util; 1") { 223 print "# We have Hash::Util, so test that the restricted utf8 hash is valid\n"; 224 my $hash = thaw_hash ('Locked hash with utf8 keys', \%U_HASH); 225 for (keys %$hash) { 226 my $l = 0 + /^\w+$/; 227 my $r = 0 + $hash->{$_} =~ /^\w+$/; 228 cmp_ok ($l, '==', $r, sprintf "key length %d", length $_); 229 cmp_ok ($l, '==', $_ eq "ch${a_circumflex}teau" ? 0 : 1); 230 } 231 test_locked_hash ($hash); 232 } else { 233 print "# We don't have Hash::Util, so test that the utf8 hash downgrades\n"; 234 fail ("You can't get here [perl version $]]. This is a bug in the test. 235# Please send the output of perl -V to perlbug\@perl.org"); 236 } 237} else { 238 print "# We don't have utf8 hashes, so test that the utf8 hashes downgrade\n"; 239 thaw_fail ('Hash with utf8 keys', $UTF8_CROAK); 240 thaw_fail ('Locked hash with utf8 keys', $UTF8_CROAK); 241 local $Storable::drop_utf8 = 1; 242 my $what = $] < 5.006 ? 'pre 5.6' : '5.6'; 243 my $expect = thaw $tests{"Hash with utf8 keys for $what"}; 244 thaw_hash ('Hash with utf8 keys', $expect); 245 #foreach (keys %$expect) { print "'$_':\t'$expect->{$_}'\n"; } 246 #foreach (keys %$got) { print "'$_':\t'$got->{$_}'\n"; } 247 if (eval "use Hash::Util; 1") { 248 print "# We have Hash::Util, so test that the restricted hashes in <DATA> are valid\n"; 249 fail ("You can't get here [perl version $]]. This is a bug in the test. 250# Please send the output of perl -V to perlbug\@perl.org"); 251 } else { 252 print "# We don't have Hash::Util, so test that the restricted hashes downgrade\n"; 253 my $hash = thaw_hash ('Locked hash with utf8 keys', $expect); 254 test_newkey ($hash); 255 local $Storable::downgrade_restricted = 0; 256 thaw_fail ('Locked hash with utf8 keys', $RESTRICTED_CROAK); 257 # Which croak comes first is a bit of an implementation issue :-) 258 local $Storable::drop_utf8 = 0; 259 thaw_fail ('Locked hash with utf8 keys', $RESTRICTED_CROAK); 260 } 261} 262__END__ 263# A whole run of 2.x nfreeze data, uuencoded. The "mode bits" are the octal 264# value of 'A', the "file name" is the test name. Use make_downgrade.pl to 265# generate these. 266begin 101 Locked hash 2678!049`0````$*!7)U;&5S!`````1P97)L 268 269end 270 271begin 101 Locked hash placeholder 272C!049`0````(*!7)U;&5S!`````1P97)L#A0````%<G5L97,` 273 274end 275 276begin 101 Locked keys 2778!049`0````$*!7)U;&5S``````1P97)L 278 279end 280 281begin 101 Locked keys placeholder 282C!049`0````(*!7)U;&5S``````1P97)L#A0````%<G5L97,` 283 284end 285 286begin 101 Short 8 bit utf8 data 287&!047`L.? 288 289end 290 291begin 101 Short 8 bit utf8 data as bytes 292&!04*`L.? 293 294end 295 296begin 101 Long 8 bit utf8 data 297M!048```"`,.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.? 298MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_# 299MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.? 300MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_# 301MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.? 302MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_# 303MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.? 304MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_# 305MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.? 306MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_# 307MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.? 3088PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.? 309 310end 311 312begin 101 Short 24 bit utf8 data 313)!047!?BPC[^N 314 315end 316 317begin 101 Short 24 bit utf8 data as bytes 318)!04*!?BPC[^N 319 320end 321 322begin 101 Long 24 bit utf8 data 323M!048```%`/BPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 324MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 325MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 326MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 327MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 328MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 329MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 330MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 331MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 332MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 333MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 334MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 335MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 336MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 337MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 338MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 339MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 340MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 341MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 342MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 343MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 344MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 345MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 346MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 347MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 348MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 349MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 350MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/ 351;OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N 352 353end 354 355begin 101 Hash with utf8 flag but no utf8 keys 3568!049``````$*!7)U;&5S``````1P97)L 357 358end 359 360begin 101 Hash with utf8 keys 361M!049``````0*!F-A<W1L90`````&8V%S=&QE"@=C:.5T96%U``````=C:.5T 362D96%U%P/EGXX!`````^6?CA<'4V-H;&_#GP(````&4V-H;&_? 363 364end 365 366begin 101 Locked hash with utf8 keys 367M!049`0````0*!F-A<W1L900````&8V%S=&QE"@=C:.5T96%U!`````=C:.5T 368D96%U%P/EGXX%`````^6?CA<'4V-H;&_#GP8````&4V-H;&_? 369 370end 371 372begin 101 Hash with utf8 keys for pre 5.6 373M!049``````0*!F-A<W1L90`````&8V%S=&QE"@=C:.5T96%U``````=C:.5T 374D96%U"@/EGXX``````^6?C@H'4V-H;&_#GP(````&4V-H;&_? 375 376end 377 378begin 101 Hash with utf8 keys for 5.6 379M!049``````0*!F-A<W1L90`````&8V%S=&QE"@=C:.5T96%U``````=C:.5T 380D96%U%P/EGXX``````^6?CA<'4V-H;&_#GP(````&4V-H;&_? 381 382end 383 384begin 301 Locked hash 3858!049`0````$*!9FDDX6B!`````27A9F3 386 387end 388 389begin 301 Locked hash placeholder 390C!049`0````(.%`````69I).%H@H%F:23A:($````!)>%F9,` 391 392end 393 394begin 301 Locked keys 3958!049`0````$*!9FDDX6B``````27A9F3 396 397end 398 399begin 301 Locked keys placeholder 400C!049`0````(.%`````69I).%H@H%F:23A:(`````!)>%F9,` 401 402end 403 404begin 301 Short 8 bit utf8 data 405&!047`HMS 406 407end 408 409begin 301 Short 8 bit utf8 data as bytes 410&!04*`HMS 411 412end 413 414begin 301 Long 8 bit utf8 data 415M!048```"`(MSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS 416MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+ 417M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS 418MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+ 419M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS 420MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+ 421M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS 422MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+ 423M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS 424MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+ 425M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS 4268BW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS 427 428end 429 430begin 301 Short 24 bit utf8 data 431*!047!OM30G-S50`` 432 433end 434 435begin 301 Short 24 bit utf8 data as bytes 436*!04*!OM30G-S50`` 437 438end 439 440begin 301 Long 24 bit utf8 data 441M!048```&`/M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 442M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 443M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 444M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 445M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 446M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 447M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 448M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 449M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 450M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 451M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 452M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 453M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 454M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 455M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 456M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 457M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 458M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 459M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 460M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 461M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 462M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 463M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 464M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 465M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 466M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 467M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 468M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 469M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 470M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 471M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 472M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 473M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3 474M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S 475-5?M30G-S5?M30G-S50`` 476 477end 478 479begin 301 Hash with utf8 flag but no utf8 keys 4808!049``````$*!9FDDX6B``````27A9F3 481 482end 483 484begin 301 Hash with utf8 keys 485M!049``````0*!X.(1Z.%@:0`````!X.(1Z.%@:0*!H.!HJ.3A0`````&@X&B 486FHY.%%P3<9')5`0````3<9')5%P?B@XB3EHMS`@````;B@XB3EM\` 487 488end 489 490begin 301 Locked hash with utf8 keys 491M!049`0````0*!X.(1Z.%@:0$````!X.(1Z.%@:0*!H.!HJ.3A00````&@X&B 492FHY.%%P3<9')5!0````3<9')5%P?B@XB3EHMS!@````;B@XB3EM\` 493 494end 495 496begin 301 Hash with utf8 keys for pre 5.6 497M!049``````0*!H.!HJ.3A0`````&@X&BHY.%"@B#B(M&HX6!I``````'@XA' 498GHX6!I`H'XH.(DY:+<P(````&XH.(DY;?"@3<9')5``````3<9')5 499 500end 501 502begin 301 Hash with utf8 keys for 5.6 503M!049``````0*!H.!HJ.3A0`````&@X&BHY.%"@>#B$>CA8&D``````>#B$>C 504FA8&D%P?B@XB3EHMS`@````;B@XB3EM\7!-QD<E4`````!-QD<E4` 505 506end 507