From: Robin Houston <robin@cpan.org>
Date: Sun, 6 May 2001 14:40:51 +0000 (+0100)
Subject: Give deparse tester a chance
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3827f17e1a3ba75532f089723508d3300b6b7744;p=p5sagit%2Fp5-mst-13.2.git

Give deparse tester a chance
Message-ID: <20010506144051.A6279@penderel>

p4raw-id: //depot/perl@10008
---

diff --git a/t/pod/testp2pt.pl b/t/pod/testp2pt.pl
index 8cfdbb9..735350f 100644
--- a/t/pod/testp2pt.pl
+++ b/t/pod/testp2pt.pl
@@ -156,7 +156,7 @@ sub testpodplaintext( @ ) {
    for $podfile (@testpods) {
       ($testname, $_) = fileparse($podfile);
       $testdir ||=  $_;
-      $testname  =~ s/\.t$//;
+      $testname  =~ s/\..*$//;
       $cmpfile   =  $testdir . $testname . '.xr';
       $outfile   =  $testdir . $testname . '.OUT';