From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 May 2020 23:19:23 +0000 (+0100)
Subject: nailing-cargo: Provide stat_exists
X-Git-Tag: nailing-cargo/1.0.0~201
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=c28191ef0a106d9ed8cc7ddf79c8a5296a425863;p=nailing-cargo.git

nailing-cargo: Provide stat_exists

No caller yet.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

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;