#!/usr/local/bin/perl -w

# $Id: Untaint.pm,v 1.1 2019/07/30 14:21:48 lolo Exp $

package XymonExt::Untaint;

use strict;

sub XymonExt::Untaint::untaint($)
{
	my $ref = shift;
	($$ref =~ /(.*)/) && ($$ref = $1);
}

sub XymonExt::Untaint::untaintm($)
{
	my $ref = shift;
	($$ref =~ /(.*)/ms) && ($$ref = $1);
}

1;