From 247f6f038db3da7e988bc36df26a118505a14680 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Wed, 2 Oct 2013 23:39:52 -0400
Subject: [PATCH] modify munge_null to remove all control characters

---
 Info.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Info.pm b/Info.pm
index 813d0e61..7e57f286 100644
--- a/Info.pm
+++ b/Info.pm
@@ -3299,15 +3299,15 @@ sub munge_port_list {
 
 =item munge_null()
 
-Removes nulls from a string
+Removes control characters from a string
 
 =cut
 
-# munge_null() - removes nulls (\0)
+# munge_null() - removes nulls (\0) and other control characters
 sub munge_null {
     my $text = shift || return;
 
-    $text =~ s/\0//g;
+    $text =~ s/[[:cntrl:]]//g;
     return $text;
 }