This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops, change 26326 broke t/run/switches.t
authorGisle Aas <gisle@activestate.com>
Mon, 12 Dec 2005 12:21:39 +0000 (12:21 +0000)
committerGisle Aas <gisle@activestate.com>
Mon, 12 Dec 2005 12:21:39 +0000 (12:21 +0000)
Reverting change 24912 fixes it.

p4raw-id: //depot/perl@26327

t/run/switches.t

index ec1ecb6..a63c54b 100644 (file)
@@ -221,7 +221,7 @@ SWTESTPM
 
     my $v = sprintf "%vd", $^V;
     like( runperl( switches => ['-v'] ),
-         qr/This is perl, $v built for $Config{archname}.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
+         qr/This is perl, v$v built for $Config{archname}.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
           '-v looks okay' );
 
 }