Attachment #85740 for bug #21846

View | Details | Raw Unified | Return to bug 21846
Collapse All | Expand All




my $help;
my $verbose;

GetOptions(
    'help|h'    => \$help,
    'verbose|v' => \$verbose
) or pod2usage(2);

pod2usage(1) if $help;
    pod2usage();
    exit 0;
}

fix_tags_approval($verbose);
fix_tags_index( $verbose );
- 

Return to bug 21846

Lines 65-79 binmode( STDOUT, ":encoding(UTF-8)" ); Link Here

(-)a/misc/maintenance/fix_tags_weight.pl (-7 / +3 lines)
65	my $help;	65	my $help;
66	my $verbose;	66	my $verbose;
67		67
68	my $result = GetOptions(	68	GetOptions(
69	'help\|h' => \$help,	69	'help\|h' => \$help,
70	'verbose\|v' => \$verbose	70	'verbose\|v' => \$verbose
71	);	71	) or pod2usage(2);
72		72
73	if ( not $result or $help ) {	73	pod2usage(1) if $help;
74	pod2usage();
75	exit 0;
76	}
77		74
78	fix_tags_approval($verbose);	75	fix_tags_approval($verbose);
79	fix_tags_index( $verbose );	76	fix_tags_index( $verbose );
80	-