xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/taint (revision 898184e3e61f9129feb5978fad5a8c6865f00b92) 
1*898184e3Ssthen#!/usr/bin/perl -T
2*898184e3Ssthen#
3*898184e3Ssthen# This code is used by lib/perl5db.t !!!
4*898184e3Ssthen#
5*898184e3Ssthenuse Scalar::Util qw(tainted);
6*898184e3Ssthen
7*898184e3Ssthen# [perl #76872] don't taint $DB::sub
8*898184e3Ssthen
9*898184e3Ssthensub f {}
10*898184e3Ssthen
11*898184e3SsthenBEGIN {
12*898184e3Ssthen    print "[\$^X]" if tainted($^X);
13*898184e3Ssthen    ($^X || 1)  && f(); # maybe taint $DB::sub;
14*898184e3Ssthen    print "[\$DB::sub]" if tainted($DB::sub);
15*898184e3Ssthen}
16*898184e3Ssthenprint "[done]";
17*898184e3Ssthen
18