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 (file)
--- 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';