Threadengine stuff

[user/henk/code/inspircd.git] / make / run-cc.pl

diff --git a/make/run-cc.pl b/make/run-cc.pl
index 4c07632f3fdd1562aa428a8f52279a40c654bce2..0b0ac5bad24781dc0fcb9e2e81c0935af394ab08 100755 (executable)
--- 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;
@@ -86,8 +88,13 @@ foreach my $n (@ARGV)
        {
                $action = "BUILD";
                $name = $n;
+               last;
+       }
+       elsif ($n eq "-o")
+       {
+               $action = $name = $n;
        }
-       elsif ($n !~ /\.^-c/)
+       elsif ($name eq "-o")
        {
                $action = "LINK";
                $name = $n;