Test case for bug 20010526.004, fixed in #10252.

p4raw-id: //depot/perl@10253

diff --git a/t/op/taint.t b/t/op/taint.t
index 46b9aab..0d1e747 100755 (executable)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -106,7 +106,7 @@ print PROG 'print "@ARGV\n"', "\n";
 close PROG;
 my $echo = "$Invoke_Perl $ECHO";
 
-print "1..173\n";
+print "1..174\n";
 
 # First, let's make sure that Perl is checking the dangerous
 # environment variables. Maybe they aren't set yet, so we'll
@@ -811,3 +811,22 @@ else {
     }
 }
 
+{
+    # bug 20010526.004
+
+    use warnings;
+
+    $SIG{__WARN__} = sub { print "not " };
+
+    sub fmi {
+       my $divnum = shift()/1;
+       sprintf("%1.1f\n", $divnum);
+    }
+
+    fmi(21 . $TAINT);
+    fmi(37);
+    fmi(248);
+
+    print "ok 174\n";
+}
+