[PATCH] make 'perldb' work with test files in t/

[Ken Williams]

Hi,

Currently 'make perldb' only works when you're using a test.pl, it fails if you're using t/foo.t files. The following patch fixes it, by analogy with the 'test_dynamic' section.

-Ken


Index: lib/ExtUtils/MM_Unix.pm
===================================================================
RCS file: /home/schwern/cvs/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm,v
retrieving revision 1.140
diff -u -u -9 -r1.140 MM_Unix.pm
--- lib/ExtUtils/MM_Unix.pm 24 Dec 2002 04:47:08 -0000 1.140
+++ lib/ExtUtils/MM_Unix.pm 20 Jan 2003 00:24:19 -0000
@@ -3780,20 +3780,22 @@

push(@m, "test_dynamic :: pure_all\n");
push(@m, $self->test_via_harness('$(FULLPERLRUN)', '$(TEST_FILES)'))
if $tests;
push(@m, $self->test_via_script('$(FULLPERLRUN)', '$(TEST_FILE)'))
if -f "test.pl";
push(@m, "\n");

push(@m, "testdb_dynamic :: pure_all\n");
- push(@m, $self->test_via_script('$(FULLPERLRUN) $(TESTDB_SW)',
- '$(TEST_FILE)'));
+ push(@m, $self->test_via_harness('$(FULLPERLRUN) $(TESTDB_SW)', '$(TEST_FILES)'))
+ if $tests;
+ push(@m, $self->test_via_script('$(FULLPERLRUN) $(TESTDB_SW)', '$(TEST_FILE)'))
+ if -f "test.pl";
push(@m, "\n");

# Occasionally we may face this degenerate target:
push @m, "test_ : test_dynamic\n\n";

if ($self->needs_linking()) {
push(@m, "test_static :: pure_all \$(MAP_TARGET)\n");
push(@m, $self->test_via_harness('./$(MAP_TARGET)', '$(TEST_FILES)')) if $tests;
push(@m, $self->test_via_script('./$(MAP_TARGET)', '$(TEST_FILE)')) if -f "test.pl";