emergency: remove needless $! clobber

We don't check $! unless `sysopen' fails, and `sysopen' will set
$! on failure so there's no need to undef $! ourselves.

diff --git a/lib/PublicInbox/Emergency.pm b/lib/PublicInbox/Emergency.pm
index d3a83408f12283ff08e2ecd2e09227ad31745c1b..7e9faad02bd7b2e1af5068ebee052536620cfa0a 100644 (file)
--- a/lib/PublicInbox/Emergency.pm
+++ b/lib/PublicInbox/Emergency.pm
@@ -39,7 +39,6 @@ sub prepare {
        my ($tmp, $fh);
        do {
                $tmp = _fn_in($self, $pid, 'tmp');
-               $! = undef;
        } while (!sysopen($fh, $tmp, O_CREAT|O_EXCL|O_RDWR) and $! == EEXIST);
        print $fh $$strref or die "print: $!";
        $fh->flush or die "flush: $!";