sub dirtydump{
my ($tainted) = @_;
if(ref($tainted) eq 'ARRAY'){
foreach $var (@{$tainted}){
dirtydump(var);
}
}
if(ref($tainted) eq 'HASH'){
foreach $var (%{$tainted}){
dirtydump(var);
}
}
print $tainted;
}this is utterly untested and I don't have time to test it as I'm up to my eyeballs with work atm. Kind Regards Max _______________________________________________ BristolBathPM mailing list [email protected] http://mailman.bristolbath.org/mailman/listinfo/bristolbathpm
