Crypt/Monkeysphere/Util.pm

   1 package Crypt::Monkeysphere::Util;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Exporter qw(import);
   7 our @EXPORT_OK=qw(untaint);
   8
   9
  10 # use sparingly!  We want to keep taint mode around for the data we
  11 # get over the network.  this is only here because we want to treat
  12 # the command line arguments differently for the subprocess.
  13 sub untaint {
  14   my $x = shift;
  15   $x =~ /^(.*)$/ ;
  16   return $1;
  17 }
  18
  19 1;