Skip to content

Commit

Permalink
fix the test for perl -v
Browse files Browse the repository at this point in the history
  • Loading branch information
book committed Dec 11, 2024
1 parent d975bea commit ed65c16
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion t/run/switches.t
Original file line number Diff line number Diff line change
Expand Up @@ -310,7 +310,7 @@ is runperl(stderr => 1, prog => '#!perl -M'),
my $ver = $Config{PERL_VERSION};
my $rel = $Config{PERL_SUBVERSION};
like( runperl( switches => ['-v'] ),
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,
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,
'-v looks okay' );
}
}
Expand Down

0 comments on commit ed65c16

Please sign in to comment.