chiark / gitweb /
manual-reinject: die if user has a ~/.signature
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Apr 2016 17:29:45 +0000 (18:29 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Apr 2016 17:29:45 +0000 (18:29 +0100)
manual-reinject

index c0c2878..b75c9f3 100755 (executable)
@@ -10,6 +10,7 @@
 
 use strict;
 use IO::File;
+use POSIX;
 
 our $abbrev;
 our $duplicate;
@@ -23,6 +24,12 @@ if (!@ARGV) {
     $force = 1;
 }
 
+my $sig = $ENV{'HOME'};
+defined $sig or die;
+$sig .= '/.signature';
+die $sig if stat $sig;
+die unless $!==ENOENT;
+
 for (;;) {
     $_ = <>;
     die unless defined;