{
         'name' => 'open_directory_fails',
         'mutilate' => \&mutilate_open_directory_fails,
 +       'cleanup' => \&cleanup_open_directory_fails,
         'fails_like' => qr/could not open directory/,
         'skip_on_windows' => 1
     },
      return;
  }
  
 +# restore permissions on the unreadable directory we created.
 +sub cleanup_open_directory_fails
 +{
 +   my ($backup_path) = @_;
 +   my $pathname = "$backup_path/pg_subtrans";
 +   chmod(0700, $pathname) || die "chmod $pathname: $!";
 +   return;
 +}
 +
  # Create a directory that can't be searched. (This is skipped on Windows.)
  sub mutilate_search_directory_fails
  {