From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 7 May 2000 04:01:38 +0000 (+0000)
Subject: remove outdated kludge in Carp (NULLs are permitted in diagnostics now)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0aa0096c796aa2a7b13a25bca62505f1b99f6734;p=p5sagit%2Fp5-mst-13.2.git

remove outdated kludge in Carp (NULLs are permitted in diagnostics now)

p4raw-id: //depot/perl@6079
---

diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm
index 5e3de49..8cfdcb4 100644
--- a/lib/Carp/Heavy.pm
+++ b/lib/Carp/Heavy.pm
@@ -42,7 +42,7 @@ sub longmess_heavy {
 	#
 	# if the $error error string is newline terminated then it
 	# is copied into $mess.  Otherwise, $mess gets set (at the end of
-	# the 'else {' section below) to one of two things.  The first time
+	# the 'else' section below) to one of two things.  The first time
 	# through, it is set to the "$error at $file line $line" message.
 	# $error is then set to 'called' which triggers subsequent loop
 	# iterations to append $sub to $mess before appending the "$error
@@ -121,10 +121,7 @@ sub longmess_heavy {
 	# $line" makes sense as "called at $file line $line".
 	$error = "called";
     }
-    # this kludge circumvents die's incorrect handling of NUL
-    my $msg = \($mess || $error);
-    $$msg =~ tr/\0//d;
-    $$msg;
+    $mess || $error;
 }
 
 
@@ -227,9 +224,7 @@ CALLER:
 	}
 	else {
 	    # OK!  We've got a candidate package.  Time to construct the
-	    # relevant error message and return it.   die() doesn't like
-	    # to be given NUL characters (which $msg may contain) so we
-	    # remove them first.
+	    # relevant error message and return it.
 	    my $msg;
 	    $msg = "$error at $file line $line";
 	    if (defined &Thread::tid) {
@@ -237,7 +232,6 @@ CALLER:
 		$mess .= " thread $tid" if $tid;
 	    }
 	    $msg .= "\n";
-	    $msg =~ tr/\0//d;
 	    return $msg;
 	}
     }