diff options
| -rw-r--r-- | perl/Wallet/Admin.pm | 8 |
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; }; |