1 files changed, 25 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/01perl_bugs.t b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/01perl_bugs.t
new file mode 100644
index 00000000000..618dc092784
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/01perl_bugs.t
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl -w
+
+# Inform the user early and clearly that their Perl is broken beyond redemption
+
+use strict;
+use warnings;
+
+use lib 't/lib';
+
+use Test::More;
+
+note "The 0.01 / Gconvert bug"; {
+    my $number = 0.01;
+    my $string = "VERSION=$number";
+
+    is "VERSION=$number", "VERSION=0.01" or do {
+        diag <<END;
+Sorry, but your perl's ability to translate decimal numbers to strings
+is broken.  You should probably recompile it with -Dd_Gconvert=sprintf
+or upgrade to a newer version of Perl.
+END
+    };
+}
+
+done_testing;