1 files changed, 8 insertions, 0 deletions
diff --git a/perl/Wallet/Admin.pm b/perl/Wallet/Admin.pm
index d2e8cb0..c0b1730 100644
--- a/perl/Wallet/Admin.pm
+++ b/perl/Wallet/Admin.pm
@@ -178,6 +178,14 @@ sub upgrade {
         $self->{dbh}->install ($BASE_VERSION);
     }
 
+    # Suppress warnings that actually are just informational messages.
+    local $SIG{__WARN__} = sub {
+        my ($warn) = @_;
+        return if $warn =~ m{Upgrade not necessary};
+        return if $warn =~ m{Attempting upgrade};
+        warn $warn;
+    };
+
     # Perform the actual upgrade.
     if ($self->{dbh}->get_db_version) {
         eval { $self->{dbh}->upgrade; };