diff --git a/lib/IdPAccountManager/AuthenticationToken.pm b/lib/IdPAccountManager/AuthenticationToken.pm
index 8155904e4056ce6e57856822134891c819f83016..8d03e731f9d2081c19bbda7f17ceeec7c1d0ddbd 100644
--- a/lib/IdPAccountManager/AuthenticationToken.pm
+++ b/lib/IdPAccountManager/AuthenticationToken.pm
@@ -60,8 +60,6 @@ sub set {
     foreach my $parameter (keys %args) {
         $self->{'persistent'}->$parameter($args{$parameter});
     }
-
-    return 1;
 }
 
 ## Save object to DB
@@ -99,8 +97,6 @@ sub print {
       $self->get('id'), $self->get('token'), $self->get('email_address'),
       $self->get('sp_entityid'),
       POSIX::strftime('%Y:%m:%d', localtime($self->get('creation_date')));
-
-    return 1.;
 }
 
 ## list all authentication tokens
diff --git a/lib/IdPAccountManager/SAMLMetadata.pm b/lib/IdPAccountManager/SAMLMetadata.pm
index db8e00b7c22c175cc4d5c84e5ccf17abe227a536..e60511514a9b6d45ae576c9bfd9a2f96b75468e2 100644
--- a/lib/IdPAccountManager/SAMLMetadata.pm
+++ b/lib/IdPAccountManager/SAMLMetadata.pm
@@ -107,8 +107,6 @@ sub print {
 
     my $root = $self->{'federation_metadata_as_xml'}->documentElement();
     print $fd $root->toString();
-
-    return 1.;
 }
 
 ## returns a Lib::XML représenting an XML file
diff --git a/lib/IdPAccountManager/ServiceProvider.pm b/lib/IdPAccountManager/ServiceProvider.pm
index 21f8e9257f038f8bdba77cc6c4db6e5db0513abc..f773674cea8ba92c29db2770b027fe138519a08b 100644
--- a/lib/IdPAccountManager/ServiceProvider.pm
+++ b/lib/IdPAccountManager/ServiceProvider.pm
@@ -30,8 +30,6 @@ sub print {
     printf $fd
       "ServiceProvider ID=%s; entityid=%s; displayname=%s; contacts=%s\n",
       $self->id, $self->entityid, $self->displayname, $self->contacts;
-
-    return 1.;
 }
 
 ## list contacts for this SP, including those listed in conf.dev_sp_contact
diff --git a/lib/IdPAccountManager/TestAccount.pm b/lib/IdPAccountManager/TestAccount.pm
index 94063023dc81a4b694f51c4b7186098903be45c1..ffa9633baa8742f29d68b7da87bae0db8bcd6343 100644
--- a/lib/IdPAccountManager/TestAccount.pm
+++ b/lib/IdPAccountManager/TestAccount.pm
@@ -91,8 +91,6 @@ sub print {
       $self->get('sp_entityid'), $self->get('account_profile'),
       POSIX::strftime('%Y:%m:%d', localtime($self->get('creation_date'))),
       POSIX::strftime('%Y:%m:%d', localtime($self->get('expiration_date')));
-
-    return 1.;
 }
 
 ## list all test accounts