In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/4f13e4588f9a08564a56a0d6db821f2803aed09f?hp=e42cde6b341a4ee607dc890c8e425de18abc2701>
- Log ----------------------------------------------------------------- ----------------------------------------------------------------------- Summary of changes: dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm | 4 ++-- dist/ExtUtils-CBuilder/t/04-base.t | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm index 9f8427f6de..f69ff38fe4 100644 --- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm +++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm @@ -9,7 +9,7 @@ use Text::ParseWords; use IPC::Cmd qw(can_run); use File::Temp qw(tempfile); -our $VERSION = '0.280230'; # VERSION +our $VERSION = '0.280231'; # VERSION # More details about C/C++ compilers: # http://developers.sun.com/sunstudio/documentation/product/compiler.jsp @@ -50,7 +50,7 @@ sub new { my ($ccbase, $ccpath, $ccsfx ) = fileparse($self->{config}{cc}, qr/\.[^.]*/); ## If the path is just "cc", fileparse returns $ccpath as "./" - $ccpath = "" if $self->{config}{cc} =~ /^$ccbase$ccsfx$/; + $ccpath = "" if $self->{config}{cc} =~ /^\Q$ccbase$ccsfx\E$/; foreach my $cxx (@{$cc2cxx{$ccbase}}) { my $cxx1 = File::Spec->catfile( $ccpath, $cxx . $ccsfx); diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t index 5daed5f760..3597aad0cc 100644 --- a/dist/ExtUtils-CBuilder/t/04-base.t +++ b/dist/ExtUtils-CBuilder/t/04-base.t @@ -24,7 +24,7 @@ ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" ); isa_ok( $base, 'ExtUtils::CBuilder::Base' ); { - $phony = 'foobar'; + $phony = 'foobar++'; $base = ExtUtils::CBuilder::Base->new( config => { cc => $phony }, ); -- Perl5 Master Repository
