# New Ticket Created by Josh Purinton # Please include the string: [perl #22010] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=22010 > The following program should either die(), print a warning, or print "foo". Instead it prints nothing: #!/usr/bin/perl -w use strict; open(F, "<&DATA") || die "open: $!\n"; print <F>; __DATA__ foo