t/apenwarr/101-atime/atime2.do

   1 # make sure redo doesn't think merely *reading* the old file counts as
   2 # modifying it in-place.
   3 cat $1 >/dev/null 2>/dev/null || true
   4 perl -mTime::HiRes -e '
   5     $t2 = 1 + int(Time::HiRes::time());
   6     while (1) {
   7         $t = Time::HiRes::time();
   8         last if $t > $t2;
   9         sleep($t2 - $t + 0.01);
  10     };
  11 '
  12 cat $1 >/dev/null 2>/dev/null || true
  13 echo hello