3 # $Id: utf8.t,v 1.0.1.2 2000/09/28 21:44:17 ram Exp $
8 # Revision 1.0.1.2 2000/09/28 21:44:17 ram
9 # patch2: fixed stupid typo
11 # Revision 1.0.1.1 2000/09/17 16:48:12 ram
18 print "1..0 # Skip: no utf8 support\n";
26 require Config; import Config;
27 if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
28 print "1..0 # Skip: Storable was not built\n";
31 require 'lib/st-dump.pl';
36 use Storable qw(thaw freeze);
41 ok 1, $x eq ${thaw freeze \$x};