chiark / gitweb /
unfolding: do not introduce additional lwsp
[modbot-mtm.git] / 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;