From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 21 Apr 2003 05:40:34 +0000 (+0000)
Subject: Upgrade to Test 1.24.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d806c1cb5e2fb19903b05d8c4bafa1c48720daf;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Test 1.24.

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

diff --git a/lib/Test.pm b/lib/Test.pm
index f0410f9..2a76b7b 100644
--- a/lib/Test.pm
+++ b/lib/Test.pm
@@ -1,7 +1,7 @@
 
 require 5.004;
 package Test;
-# Time-stamp: "2002-10-11 17:38:48 MDT"
+# Time-stamp: "2003-04-18 21:48:01 AHDT"
 
 use strict;
 
@@ -21,7 +21,7 @@ sub _reset_globals {
     $planned    = 0;
 }
 
-$VERSION = '1.23';
+$VERSION = '1.24';
 require Exporter;
 @ISA=('Exporter');
 
@@ -183,7 +183,7 @@ sub plan {
     print $TESTOUT "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
       if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
 
-    print $TESTOUT "# MacPerl verison $MacPerl::Version\n"
+    print $TESTOUT "# MacPerl version $MacPerl::Version\n"
       if defined $MacPerl::Version;
 
     printf $TESTOUT
@@ -205,7 +205,7 @@ sub _read_program {
   close(SOURCEFILE);
   
   foreach my $x (@{$Program_Lines{$file}})
-   { $x =~ tr/[\cm\cj\n\r]//d }
+   { $x =~ tr/\cm\cj\n\r//d }
   
   unshift @{$Program_Lines{$file}}, '';
   return 1;
@@ -744,7 +744,7 @@ Copyright (c) 1998-2000 Joshua Nathaniel Pritikin.  All rights reserved.
 
 Copyright (c) 2001-2002 Michael G. Schwern.
 
-Copyright (c) 2002 Sean M. Burke.
+Copyright (c) 2002-2003 Sean M. Burke.
 
 Current maintainer: Sean M. Burke. E<lt>sburke@cpan.orgE<gt>