From c28191ef0a106d9ed8cc7ddf79c8a5296a425863 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 11 May 2020 00:19:23 +0100
Subject: [PATCH] nailing-cargo: Provide stat_exists

No caller yet.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 nailing-cargo | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/nailing-cargo b/nailing-cargo
index fa16da5..4a8daf9 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -99,6 +99,13 @@ sub read_or_enoent ($) {
   $r;
 }
 
+sub stat_exists ($$) {
+  my ($fn, $what) = @_;
+  if (stat $fn) { return 1; }
+  $!==ENOENT or die "$self: stat $what: $fn: $!\n";
+  return 0;
+}
+
 sub toml_or_enoent ($$) {
   my ($f,$what) = @_;
   my $toml = read_or_enoent($f) // return;
-- 
2.30.2