diff --git a/misc/maintenance/fix_tags_weight.pl b/misc/maintenance/fix_tags_weight.pl index 549d170614..7dc3801c16 100755 --- a/misc/maintenance/fix_tags_weight.pl +++ b/misc/maintenance/fix_tags_weight.pl @@ -65,15 +65,12 @@ binmode( STDOUT, ":encoding(UTF-8)" ); my $help; my $verbose; -my $result = GetOptions( +GetOptions( 'help|h' => \$help, 'verbose|v' => \$verbose -); +) or pod2usage(2); -if ( not $result or $help ) { - pod2usage(); - exit 0; -} +pod2usage(1) if $help; fix_tags_approval($verbose); fix_tags_index( $verbose );