From 39e618f761c9a7c4a1454afc54f4c1105b36bc9d Mon Sep 17 00:00:00 2001
From: Max Baker <>
Date: Wed, 2 Jul 2003 19:24:49 +0000
Subject: [PATCH] escaped all control characters, not just line feed

---
 t/test_class.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/test_class.pl b/t/test_class.pl
index b1d4a022..e652ba6d 100755
--- a/t/test_class.pl
+++ b/t/test_class.pl
@@ -85,7 +85,7 @@ sub test_global {
     
     if ($@){
         my $err = $@;
-        $err =~ s/\n/ /g;
+        $err =~ s/[[:cntrl:]]+/ /g;
         printf "%-20s Blew up. $err\n",$method;
         return 0;
     }
@@ -94,7 +94,7 @@ sub test_global {
         printf "%-20s Does not exist.\n",$method;
         return 0;
     }
-    $value =~ s/\n/ /g;
+    $value =~ s/[[:cntrl:]]+/ /g;
     if (length $value > 60) {
         $value = substr($value,0,60);
         $value .= '...';