Re: Angle operator

[jerryhone]

In the debugger

  DB<33> l  72-76
72    
73:     $failures = $oldfails = 0 ;
74      
75:     while( <> ) {
76:             &assert ( (substr($_,0,4) eq "573\r") , "EC 573 is mis
+sing 573^M at start--" ) ;
  DB<34> c 75
main::unroll_and_parse_ec573(/opt/PRD/default/bin/ec2gen:75):
75:     while( <> ) {
  DB<35> x <>
  empty array
  DB<36> n
main::unroll_and_parse_ec573(/opt/PRD/default/bin/ec2gen:76):
76:             &assert ( (substr($_,0,4) eq "573\r") , "EC 573 is mis
+sing 573^M at start--" ) ;

I've restarted the process and continued directly to line 75 - the 'while' loop I've then dumped out the content of the STDIN file handle - it's empty. Then 'next' and I'm in the loop - why!

[jo37]

At first sight this behaviour looks very strange. If there was any data available via <>, the command x <> would consume all of it and the loop would not be entered. I've played a bit with this setup and are able to reproduce such a thing. If <> is exhausted and the final returned undef is ignored, the next call to <> will read from STDIN, even if file names were provided via @ARGV.

This behaviour is documented in I/O Operators.

I guess there is some part in the script that ignores an undef return from <> or evaluates it in list context before the loop in question. And there are named files in addition to data from STDIN.

Update:

...the loop would not be entered.

This it not true and is not what I wanted to say. The loop is entered, but it will wait for input from STDIN.

[jerryhone]

Thanks for the link. I think I've read it before but so many years ago, I'd forgotten how magical (or maybe devilish!) diamond operators are. I'm away from my desk right now so will take another look in the morning, but it is true that the script has ARGV processing including composite arguments and a STDIN redirection(<) on the command line, so there's every possibility that there's some quirkiness that the Perl versions have handled differently. This is the only viable patch I can come up with...

while ( <> ) {
    next if (length($_) == 0);
   .
   .

[Corion]

Maybe @ARGV has more files to read in?