Bug 81502

Summary: working script fails under debugger with perl-5.8.0-82
Product: [Retired] Red Hat Raw Hide Reporter: Jonathan Kamens <jik>
Component: perlAssignee: Warren Togami <wtogami>
Status: CLOSED WONTFIX QA Contact: David Lawrence <dkl>
Severity: medium Docs Contact:
Priority: medium    
Version: 1.0   
Target Milestone: ---   
Target Release: ---   
Hardware: All   
OS: Linux   
Fixed In Version: Doc Type: Bug Fix
Doc Text:
Story Points: ---
Clone Of: Environment:
Last Closed: 2005-05-28 07:28:02 UTC Type: ---
Regression: --- Mount Type: ---
Documentation: --- CRM:
Verified Versions: Category: ---
oVirt Team: --- RHEL 7.3 requirements from Atomic Host:
Cloudforms Team: --- Target Upstream Version:

Description Jonathan Kamens 2003-01-09 22:55:43 UTC
I have a script which fails as follows when run under the debugger (i.e., just
start the script with "perl -d <script> <args>" and type "c RET") but not when
run without the debugger:

print() on unopened filehandle old_watch at
/home/jik/dev/bulkmail/bounces/filter.pl line 136, <> chunk 1.
        DB::DB called at /home/jik/dev/bulkmail/bounces/filter.pl line 111
Can't coerce GLOB to string in concat at
/home/jik/dev/bulkmail/bounces/filter.pl line 136, <> chunk 1.
        DB::DB called at /home/jik/dev/bulkmail/bounces/filter.pl line 111
Debugged program terminated.  Use q to quit or R to restart,

The code around line 136 looks like this:

   133		    $count++;
   135		    if (! &filter($_)) {
   136		      print_it:
   137			print(FILTEROUT $orig) || die "write to $filter_output: $!";
   138		    }
   139		}
   140	    }

Note that the failure happens right after a call to "goto print_it" from
elsewhere in the script.

Unfortunately, I can't find a simple test case for the problem, and I can't send
you the whole script because it's proprietary.

Comment 1 Warren Togami 2005-05-28 07:28:02 UTC
We cannot possibly solve problems that we cannot reproduce due to lack of source
code or simple test case.  Sorry.