#!perl -w
use strict;
$Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
my $file = $0;
$file =~ s/pp//;
do $file;
die $@ if $@;
#!perl -w
use strict;
$Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
my $file = $0;
$file =~ s/pp//;
do $file;
die $@ if $@;