1N/A# Copyright (c) 1995-2000, Raphael Manfredi 1N/A# You may redistribute only under the same terms as Perl 5, as specified 1N/A# in the README file that comes with the distribution. 1N/A chdir('t') if -d 't'; 1N/A print "1..0 # Skip: Storable was not built\n"; 1N/A for (my $i = 0; $i < 5; $i++) { 1N/A next if /^#$/; # skip comments 1N/A next if /^#\s+/; # skip comments 1N/A next if /^[^#]/; # skip uuencoding for ASCII machines 1N/A s/^#//; # prepare uuencoded data for EBCDIC machines 1N/A# Allow for long double string conversions. 1N/A# using Storable-0.6@11, output of: print pack("u", nfreeze(ROOT->make)); 1N/A# original size: 278 bytes 1N/AM`P,````%!`(````&"(%8"(!8"'U8"@@M,RXQ-#$U.5@)```!R%@*`S0N-5A8 1N/AM6`````-N=6T$`P````(*!'9A;#%8````!&ME>3$*!'9A;#)8````!&ME>3)B 1N/AM"51)141?2$%32%A8`````6@$`@````,*!G-T<FEN9U@$``````I8!``````` 1N/AM6%A8`````6$$`@````4$`@````$(@%AB!E-)35!,15A8!`(````!"(%88@93 1N/AM24U03$586`0"`````0B"6&(&4TE-4$Q%6%@$`@````$(@UAB!E-)35!,15A8 1N/AM!`(````!"(188@9324U03$586%A8`````V]B:@0,!``````*6%A8`````W)E 1N/A# using Storable-0.6@11, output of: print '#' . pack("u", nfreeze(ROOT->make)); 1N/A# on OS/390 (cp 1047) original size: 217 bytes 1N/A#M!0,1!-G6UN,#````!00,!!$)X\G%Q&W(P>+(`P````(*!*6!D_$````$DH6H 1N/A#M\0H$I8&3\@````22A:CR`````YF%A@0"````!@B!"(`(?0H(8/-+\?3Q]?D) 1N/A#M```!R`H#]$OU`````Y6DE`0"````!001!N+)U-?3Q0(````!"(`$$@("```` 1N/A#M`0B!!!("`@````$(@@02`@(````!"(,$$@("`````0B$`````Y:"D00````` 1N/A#E!`````&(!`(````#"@:BHYF)E8<$``````0$```````````!@0``