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.
  12 sub untaint {
  13   my $x = shift;
  14   $x =~ /^(.*)$/ ;
  15   return $1;
  16 }
  17
  18 1;