--- installed.t;1	Thu Jan 23 14:22:30 2003
+++ installed.t;4	Wed Mar 26 21:02:45 2003
@@ -18,10 +18,12 @@
 use Cwd;
 use File::Path;
 use File::Basename;
 use File::Spec;
 
+use Data::Dumper;
+
 use Test::More tests => 46;
 
 BEGIN { use_ok( 'ExtUtils::Installed' ) }
 
 my $mandirs =  !!$Config{man1direxp} + !!$Config{man3direxp};
@@ -115,10 +117,12 @@
 	my $realei = ExtUtils::Installed->new();
     isa_ok( $realei, 'ExtUtils::Installed' );
     isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
     is( $realei->{Perl}{version}, $Config{version}, 
         'new() should set Perl version from %Config' );
+
+        print Dumper(\$realei);
 
 	ok( exists $realei->{FakeMod}, 'new() should find modules with .packlists');
 	isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
 	is( $realei->{FakeMod}{version}, '1.1.1', 
 		'... should find version in modules' );