File modification time: Difference between revisions
m
→{{header|Perl 6}}: fix file open error handling
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:
sub MAIN (Str $file) {
my $mtime = $file.IO.modified
my $ubuff = utimbuf.new(:atime(time),:mtime($mtime));
| |||