diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2008-06-28 18:00:17 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-28 21:06:57 +0000 |
| commit | 6e592b3a92f7ee35c9a857bd9a43297ab1693599 (patch) | |
| tree | 262d198509e9c5efd2b2af3fcebb6daa6456c827 /ext/IO | |
| parent | 087986a76c08e8dfaaee54f8f476bfa315216671 (diff) | |
| download | perl-6e592b3a92f7ee35c9a857bd9a43297ab1693599.tar.gz | |
Some more missing isGV_with_GP()s
Message-ID: <20080628160017.GA81579@osiris.mauzo.dyndns.org>
p4raw-id: //depot/perl@34092
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/t/io_taint.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/ext/IO/t/io_taint.t b/ext/IO/t/io_taint.t index 4a9b76e84b..1cec9d7baf 100755 --- a/ext/IO/t/io_taint.t +++ b/ext/IO/t/io_taint.t @@ -18,7 +18,7 @@ BEGIN { END { unlink "./__taint__$$" } -print "1..3\n"; +print "1..5\n"; use IO::File; $x = new IO::File "> ./__taint__$$" || die("Cannot open ./__taint__$$\n"); print $x "$$\n"; @@ -43,4 +43,15 @@ print "not " if ($@ =~ /^Insecure/o); print "ok 3\n"; # No Insecure message from using the data $x->close; +# this will segfault if it fails + +sub PVBM () { 'foo' } +{ my $dummy = index 'foo', PVBM } + +eval { IO::Handle::untaint(PVBM) }; +print "ok 4\n"; + +eval { IO::Handle::untaint(\PVBM) }; +print "ok 5\n"; + exit 0; |