From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 May 2001 15:26:39 +0000 (+0000)
Subject: Test case for bug 20010526.004, fixed in #10252.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=65811bc3327f34a4ff7b6ca50004fbd2ead24997;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
+}
+