percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-24 05:15:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Pingback::_touch should update the [ma]time of the file

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-08-21 17:00:32 -03:00
parent 2d41598ea4
commit e5b99fb41c
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/Pingback.pm
View File

@@ -176,6 +176,7 @@ sub _touch {
sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK sysopen my $fh, $file, O_WRONLY|O_CREAT|O_NONBLOCK
or die "Cannot create $file : $!"; or die "Cannot create $file : $!";
close $fh or die "Cannot close $file : $!"; close $fh or die "Cannot close $file : $!";
utime(undef, undef, $file);
} }
sub encode_client_response { sub encode_client_response {

5
t/lib/Pingback.t
View File

@@ -215,6 +215,11 @@ ok(
"time_to_check returns true if the file exists and it's mtime is at least one day old", "time_to_check returns true if the file exists and it's mtime is at least one day old",
); );
ok(
!Pingback::time_to_check($file),
"...but fails if tried a second time, as the mtime has been updated",
);
# ############################################################################# # #############################################################################
# Done. # Done.
# ############################################################################# # #############################################################################