This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
applied suggested patch, modulo already applied parts
[perl5.git] / vms / ext / vmsish.t
index f68b3ac..24a9f43 100644 (file)
@@ -115,7 +115,7 @@ else    { print "ok 5\n";                          }
   }
   else { print "ok 15\n"; }
 
-  if ($utcmtime - $vmsmtime + $offset > 10) {
+  if ($vmsmtime - $utcmtime + $offset > 10) {
     print "not ok 16  # (stat) UTC: $utcmtime  VMS: $vmsmtime\n";
   }
   else { print "ok 16\n"; }