File modification time: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: A little stricter about returned native types)
m (→‎{{header|Perl 6}}: fix file open error handling)
Line 1,033: Line 1,033:


sub MAIN (Str $file) {
sub MAIN (Str $file) {
my $mtime = $file.IO.modified // die "Can't stat $file: $!";
my $mtime = $file.IO.modified orelse .die;


my $ubuff = utimbuf.new(:atime(time),:mtime($mtime));
my $ubuff = utimbuf.new(:atime(time),:mtime($mtime));