Select Code to Download

# check whether or not a scalar variable is tainted
# (code straight from the Camel, 3rd ed., page 561)
...
    *is_tainted = $@ ? \&is_tainted_pp : \&Scalar::Util::tainted;
}