diff options
Diffstat (limited to 'make/run-cc.pl')
| -rwxr-xr-x | make/run-cc.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/make/run-cc.pl b/make/run-cc.pl index 71a921c61..0b0ac5bad 100755 --- a/make/run-cc.pl +++ b/make/run-cc.pl @@ -26,8 +26,10 @@ my $location = ""; my @msgfilters = ( [ qr/^(.*) warning: cannot pass objects of non-POD type `(.*)' through `\.\.\.'; call will abort at runtime/ => sub { my ($msg, $where, $type) = @_; + print $location; + $location = ""; my $errstr = "$where error: cannot pass objects of non-POD type `$type' through `...'\n"; - if ($type =~ m/::string/) { + if ($type =~ m/::(basic_)?string/) { $errstr .= "$where (Did you forget to call c_str()?)\n"; } die $errstr; |