Skip to content

Commit ed65c16

Browse files
committed
fix the test for perl -v
1 parent d975bea commit ed65c16

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

t/run/switches.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -310,7 +310,7 @@ is runperl(stderr => 1, prog => '#!perl -M'),
310310
my $ver = $Config{PERL_VERSION};
311311
my $rel = $Config{PERL_SUBVERSION};
312312
like( runperl( switches => ['-v'] ),
313-
qr/This is perl 5, version \Q$ver\E, subversion \Q$rel\E \(v\Q$v\E(?:[-*\w]+| \([^)]+\))?\) built for \Q$Config{archname}\E.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
313+
qr/This is perl, version \Q$ver\E, subversion \Q$rel\E \(v\Q$v\E(?:[-*\w]+| \([^)]+\))?\) built for \Q$Config{archname}\E.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
314314
'-v looks okay' );
315315
}
316316
}

0 commit comments

Comments
 (0)