Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (6 sloc) 165 Bytes
#!perl -w
use strict;
use PerlIO::Util;
my $io = PerlIO::Util->open('<', $INC{'strict.pm'});
scalar <$io>;
warn 'warnings with an informative filehandle name';