Bug 63094

Summary: Upgrading to perl-5.6.1 breaks cleanfeed filter_innd.pl
Product: [Retired] Red Hat Linux Reporter: James Antill <james.antill>
Component: cleanfeedAssignee: Florian La Roche <laroche>
Status: CLOSED RAWHIDE QA Contact:
Severity: medium Docs Contact:
Priority: medium    
Version: 7.1   
Target Milestone: ---   
Target Release: ---   
Hardware: i386   
OS: Linux   
Whiteboard:
Fixed In Version: Doc Type: Bug Fix
Doc Text:
Story Points: ---
Clone Of: Environment:
Last Closed: 2002-04-09 23:31:15 UTC Type: ---
Regression: --- Mount Type: ---
Documentation: --- CRM:
Verified Versions: Category: ---
oVirt Team: --- RHEL 7.3 requirements from Atomic Host:
Cloudforms Team: --- Target Upstream Version:
Embargoed:

Description James Antill 2002-04-09 23:31:10 UTC 
Description of Problem:
 In perl 5.6.1 perl will error if you try to alter a read-only variable with tr
even if the text is the same as the source (Ie. "123" =~ tr/1/1/; is now an
error/exception). However this was (and still is) documented as a way to count
the number of characters of type X and cleanfeed (filter_innd.pl) uses this
idiom with a read-only variable on line 572.

Additional Information:

 Here is how I fixed cleanfeed...
	
{ my $tmp = $hdr{'__BODY__'};
        $lines = $tmp =~ tr/\n/\n/; }
# The tr doesn't work because __BODY__ is readonly
# $lines = $hdr{'__BODY__'} =~ tr/\n/\n/;
Comment 1 Florian La Roche 2002-04-15 19:56:55 UTC 
This is already fixed in the current rpm.

Thanks,

Florian La Roche