http://www.perlmonks.org?node_id=516585


in reply to What's your favourite method of untainting?

A blessed horn of a unicorn untaints everything

Is a 'horn' synonymous with a reference I wonder :). There's potential for a new Acme:: module here.

--

Oh Lord, won’t you burn me a Knoppix CD ?
My friends all rate Windows, I must disagree.
Your powers of persuasion will set them all free,
So oh Lord, won’t you burn me a Knoppix CD ?
(Missquoting Janis Joplin)

Replies are listed 'Best First'.
Re^2: What's your favourite method of untainting?
by mrborisguy (Hermit) on Dec 16, 2005 at 18:43 UTC

    I'll bite.

    Note: Untested. And no, I'm not uploading this.

        -Bryan

    Update: It seems my untested code did have a flaw! Thanks ambrus++.

      I think this is wrong:

      ($foo) = ($variable =~ /^(.*)$/g);
      shouldn't you add an s switch to the regexp so that it would match multi-line strings?