From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 17 Jun 2020 23:51:46 +0000 (+0100)
Subject: nailing-cargo: Spot an obvious mistake
X-Git-Tag: nailing-cargo/1.0.0~181
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=9c545d4325146de29636746ff6af0250d4698bab;p=nailing-cargo.git

nailing-cargo: Spot an obvious mistake

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

diff --git a/nailing-cargo b/nailing-cargo
index 31eefe7..6511612 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -710,7 +710,18 @@ sub nailed ($) {
 }    
 
 sub install () {
+  my @our_unfound_stab = stat_exists('Cargo.toml', 'local Cargo.toml')
+    ? (stat _) : ();
   foreach my $mf (keys %manifests) {
+    if (@our_unfound_stab) {
+      if (stat_exists $mf, "manifest in to-be-nailed directory") {
+	my @mf_stab = stat _ ;
+	if ("@mf_stab[0..1]" eq "@our_unfound_stab[0..1]") {
+	  @our_unfound_stab = ();
+	}
+      }
+    }
+
     my $nailing = "$mf.nailing~";
     my $nailed = nailed($mf);
     my ($use, $rm);
@@ -733,6 +744,11 @@ sub install () {
     unlink_or_enoent $rm or die "$self: remove old $rm: $!\n";
     print STDERR "$self: nailed $mf\n" if $verbose>=3;
   }
+
+  if (@our_unfound_stab) {
+    print STDERR
+ "$self: *WARNING* cwd is not in Cargo.nail thbough it has Cargo.toml!\n";
+  }
 }
 
 sub invoke () {