Fix warning (readline on unopened filehandle)

This commit is contained in:
Daniel Berteaud 2014-04-22 11:51:05 +02:00
parent 6d8dd735fa
commit c10e185207

View File

@ -802,7 +802,7 @@ sub create_snapshot{
}
}
# In any case, failed or not, remove our lock
unlink <$lock>;
unlink $lock if (-e $lock);
return $ret;
}