I'll admit my grasp on IO layers is fuzzy at best. However, I'm trying to read some CSV files using :crlf. I could just double chomp the lines when needed, or set $/ = "\r\n" (which I worry might have unintended consequences), but I'd much rather figure out how to do this with layers, as I think it will help in the long run. Anyway, my problem is that when reading files using the diamond operator, :crlf seems to work fine, but when opening named files later in the program, it is not working. Like so:

use strict;
use warnings;
use open IN => ':crlf';

while (<>) {
  die ("Carriage return in $ARGV") if (/\r/);
}

open (INPUT, "myfile.csv") or die ("Can't open myfile.csv");
while (<INPUT>) {
  die ("Carriage return in myfile.csv") if (/\r/);
}
[download]

All the files entered on the command line are CSV files that have CRLF line endings, as does "myfile.csv". But it makes it through the first while loop and dies at the 2nd on line 1 of "myfile.csv". I tried making it open (INPUT, "<:crlf", "myfile.csv") just in case it was somehow losing the original use flag, and it made no difference.