Re: Unlink works in windows, not in Linux?

[Anonymous Monk]

unlink $file or die Fudge("unlink q($file)");
sub Fudge {
    use Errno();
    join qq/\n/,
      "Error @_",
      map { "  $_" } int( $! ) . q/ / . $!,
      int( $^E ) . q/ / . $^E,
      grep( { $!{$_} } keys %! ),
      q/ /;
}