Searched refs:kingdom (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dinterwork56.t67 my $kingdom = $Config{byteorder} =~ /23/ ? "Lillput" : "Belfuscu";
69 my $name = join ',', $kingdom, @$header{qw(intsize longsize ptrsize nvsize)};
108 is ($$result[1], "$kingdom was correct", "2nd element");

Completed in 27 milliseconds