File modification time: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: A little stricter about returned native types) |
SqrtNegInf (talk | contribs) 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 |
my $mtime = $file.IO.modified orelse .die; |
||
my $ubuff = utimbuf.new(:atime(time),:mtime($mtime)); |
my $ubuff = utimbuf.new(:atime(time),:mtime($mtime)); |