Net::DNS 0.76 broke the handling of some packets

(cherry picked from commit f9e47cfe4f04721480062a67ea80ea80cb03c621)

diff --git a/bin/tests/system/resolver/prereq.sh b/bin/tests/system/resolver/prereq.sh
index b3fef67438f9c7dd1e6630bc1148280c5aa5baf9..6363fb9bb52a99355f8d8519087c50fd79a0d130 100644 (file)
--- a/bin/tests/system/resolver/prereq.sh
+++ b/bin/tests/system/resolver/prereq.sh
@@ -20,7 +20,13 @@ SYSTEMTESTTOP=..
 
 if $PERL -e 'use Net::DNS;' 2>/dev/null
 then
-    :
+    if $PERL -e 'use Net::DNS; die if $Net::DNS::VERSION >= 0.76;' 2>/dev/null
+    then
+       :
+    else
+       echo "I:Net::DNS version 0.76 has a bug that causes this test to fail: please update." >&2
+       exit 1
+    fi
 else
     echo "I:This test requires the Net::DNS library." >&2
     exit 1

diff --git a/bin/tests/system/statistics/prereq.sh b/bin/tests/system/statistics/prereq.sh
index a6c9952206e5c88f8fecb4adc81a3d5d1d35f80d..92e8eda8b1863568f1896bc671d258ea021ccf54 100644 (file)
--- a/bin/tests/system/statistics/prereq.sh
+++ b/bin/tests/system/statistics/prereq.sh
@@ -16,7 +16,13 @@
 
 if $PERL -e 'use Net::DNS;' 2>/dev/null
 then
-    :
+    if $PERL -e 'use Net::DNS; die if $Net::DNS::VERSION >= 0.76;' 2>/dev/null
+    then
+        :
+    else
+        echo "I:Net::DNS version 0.76 has a bug that causes this test to fail: please update." >&2
+        exit 1
+    fi
 else
     echo "I:This test requires the Net::DNS library." >&2
     exit 1