From 49a8e64e86849f31c7019bdab2b67259c310f043 Mon Sep 17 00:00:00 2001 From: Mykola Malkov Date: Tue, 6 Sep 2022 12:47:25 +0300 Subject: [PATCH] TT#133502 Remove outdated options Change-Id: I3675c25a4e39c96db7008654f0163dac2556f540 --- helper/compare_dbs.pl | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/helper/compare_dbs.pl b/helper/compare_dbs.pl index 6ad1932..6686eb9 100755 --- a/helper/compare_dbs.pl +++ b/helper/compare_dbs.pl @@ -199,25 +199,13 @@ else { exit $exit; -# XXX: Remove after mr10.5. -sub old_option { - my ($name, $value) = @_; - my $newname = $name =~ tr/_/-/r; - $argv->{$name} = $value; - warn "$0: option --$name is deprecated; use --$newname instead\n"; -} - sub get_options { GetOptions( 'formatter=s' => \$argv->{'formatter'}, 'schemes=s' => \$argv->{'schemes'}, - 'user_db1=s' => \&old_option, 'user-db1=s' => \$argv->{'user_db1'}, - 'pass_db1=s' => \&old_option, 'pass-db1=s' => \$argv->{'pass_db1'}, - 'user_db2=s' => \&old_option, 'user-db2=s' => \$argv->{'user_db2'}, - 'pass_db2=s' => \&old_option, 'pass-db2=s' => \$argv->{'pass_db2'}, 'help|h' => sub{ print_usage(); exit(0); }, );