#
# Edit mktests.PL and/or parts/inc/call instead.
#
+# This file was automatically generated from the definition files in the
+# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
+# works, please read the F<HACKERS> file that came with this distribution.
+#
################################################################################
BEGIN {
@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..44\n";
+ sub load {
+ eval "use Test";
+ require 'testutil.pl' if $@;
}
- else {
+
+ if (44) {
+ load();
plan(tests => 44);
}
}
use strict;
$^W = 1;
+package Devel::PPPort;
+use vars '@ISA';
+require DynaLoader;
+@ISA = qw(DynaLoader);
+bootstrap Devel::PPPort;
+
+package main;
+
sub eq_array
{
my($a, $b) = @_;