quadmath has expq instead of expl.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 10 Sep 2014 18:03:37 +0000 (14:03 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 19 Sep 2014 13:26:52 +0000 (09:26 -0400)
t/porting/libperl.t

index f52beb3..6b441e5 100644 (file)
@@ -430,7 +430,11 @@ my %expected = (
     );
 
 if ($Config{uselongdouble} && $Config{longdblsize} > $Config{doublesize}) {
-    $expected{expl} = undef; # There is no Configure symbol for expl.
+    if ($Config{usequadmath}) {
+        $expected{expq} = undef; # There is no Configure symbol for expq.
+    } else {
+        $expected{expl} = undef; # There is no Configure symbol for expl.
+    }
 } else {
     $expected{exp} = undef; # There is no Configure symbol for exp.
 }