adopt suggestions from Jesse Vincent: do not carp on use of the deprecated G:SubKey->signature(), and default behavor when G:SubKey-signature() is called with an argument is to clear the signatures list before pushing to it

1 files changed, 1 insertions, 2 deletions

diff --git a/lib/GnuPG/SubKey.pm b/lib/GnuPG/SubKey.pm
index b4743f3..568aaad 100644
--- a/lib/GnuPG/SubKey.pm
+++ b/lib/GnuPG/SubKey.pm
@@ -42,10 +42,9 @@ sub signature {
   my $argcount = @_;
 
   if ($argcount) {
-    carp("Please do not use GnuPG::SubKey::signature().  Use GnuPG::SubKey::push_signatures() instead, since subkeys can have more than one signature.");
+    @{$self->signatures} = ();
     $self->push_signatures(@_);
   } else {
-    carp("Please do not use GnuPG::SubKey::signature.  Use GnuPG::SubKey::signatures instead, since subkeys can have more than one signature.");
     my $sigcount = @{$self->signatures};
     if ($sigcount) {
       return $self->signatures->[$sigcount-1];