@INC = ('../lib', '../ext/Devel/PPPort/t') if -d '../lib' && -d '../ext';
require Config; import Config;
use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ] ) {
+ if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
exit 0;
}
unshift @INC, 't';
}
- eval "use Test";
- if ($@) {
- require 'testutil.pl';
- print "1..2\n";
+ sub load {
+ eval "use Test";
+ require 'testutil.pl' if $@;
}
- else {
+
+ if (2) {
+ load();
plan(tests => 2);
}
}
$^W = 1;
ok(&Devel::PPPort::SvPVbyte("mhx"), 3);
-ok(&Devel::PPPort::SvPVbyte("mhx"), 3);
+ok(&Devel::PPPort::SvPV_nolen("mhx"), 42);