Skip Menu |

This queue is for tickets about the Devel-CheckLib CPAN distribution.

Report information
The Basics
Id: 67301
Status: resolved
Priority: 0/
Queue: Devel-CheckLib

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: [PATCH] Fix CC=gcc-x
gcc is not only gcc, it can be ccache gcc, gcc-4 or similar. See attached patch
Subject: Devel-CheckLib-gccv.patch
diffbk Devel-CheckLib-0.92 gcc is not only gcc, it can be ccache gcc, gcc-4 or similar. diff -u Devel-CheckLib-0.92/t/lib/Helper.pm~ Devel-CheckLib-0.92/t/lib/Helper.pm --- Devel-CheckLib-0.92/t/lib/Helper.pm~ 2010-11-24 17:13:23.000000000 +0100 +++ Devel-CheckLib-0.92/t/lib/Helper.pm 2011-04-07 14:29:14.563642800 +0200 @@ -13,7 +13,7 @@ use vars qw/@EXPORT @ISA/; @ISA = qw/Exporter/; @EXPORT = qw( - create_testlib + create_testlib find_compiler find_binary ); @@ -42,13 +42,15 @@ my $code_fh = IO::File->new("${libname}.c", ">"); print {$code_fh} "int libversion() { return 42; }\nint foo() { return 0; }\n"; $code_fh->close; - + my $cc = $Config{cc}; - my $rv = + my $gccv = $Config{gccversion}; + my $rv = $cc eq 'gcc' ? _gcc_lib( $libname ) : $cc eq 'cc' ? _gcc_lib( $libname ) : $cc eq 'cl' ? _cl_lib( $libname ) : - undef ; + $gccv ? _gcc_lib( $libname ) : + undef ; chdir $orig_wd; return $rv ? canonpath($tempdir) : undef;
Thanks. I included it. On 2011-4月-07 木 09:11:20, rurban@x-ray.at wrote: Show quoted text
> gcc is not only gcc, it can be ccache gcc, gcc-4 or similar. > > See attached patch