Perl Filesystem Encoding erkennen

[dedlfix]

Tach!

my $fh = IO::File->new;
chdir "/tmp";
my $filename = "files/asdf";
$fh->open($filename, O_CREAT) or die $!;

Keine Fehlermeldung. Geht also doch!

Also ich hätte da zu bieten:

IO::Handle: bad open mode: O_CREAT at - line 4.

dedlfix.