Skip to content

bugzilla
bugzilla
Commit 95570aca authored by bbaetz%acm.org's avatar bbaetz%acm.org
Browse files
Options

Bug 179513, take N. Fix the bracketing so that it actually works...

r=myk, justdave a=justdave
parent 46ce6219
Show whitespace changes
Inline Side-by-side
Showing with 6 additions and 6 deletions
globals.pl
View file @ 95570aca
......@@ -250,7 +250,7 @@ sub GenerateVersionTable {
print $fh "#\n";
require Data::Dumper;
print($fh,Data::Dumper->Dump([\@::log_columns, \%::versions],
print $fh (Data::Dumper->Dump([\@::log_columns, \%::versions],
['*::log_columns', '*::versions']));
foreach my $i (@list) {
......@@ -259,11 +259,11 @@ sub GenerateVersionTable {
}
}
@::legal_versions = sort {uc($a) cmp uc($b)} keys(%varray);
print($fh,Data::Dumper->Dump([\@::legal_versions, \%::components],
print $fh (Data::Dumper->Dump([\@::legal_versions, \%::components],
['*::legal_versions', '*::components']));
@::legal_components = sort {uc($a) cmp uc($b)} keys(%carray);
print($fh,Data::Dumper->Dump([\@::legal_components, \@::legal_product,
print $fh (Data::Dumper->Dump([\@::legal_components, \@::legal_product,
\@::legal_priority, \@::legal_severity,
\@::legal_platform, \@::legal_opsys,
\@::legal_bug_status, \@::legal_resolution],
......@@ -272,7 +272,7 @@ sub GenerateVersionTable {
'*::legal_platform', '*::legal_opsys',
'*::legal_bug_status', '*::legal_resolution']));
print($fh,Data::Dumper->Dump([\@::settable_resolution, \%::proddesc,
print $fh (Data::Dumper->Dump([\@::settable_resolution, \%::proddesc,
\@::enterable_products, \%::prodmaxvotes],
['*::settable_resolution', '*::proddesc',
'*::enterable_products', '*::prodmaxvotes']));
......@@ -298,7 +298,7 @@ sub GenerateVersionTable {
}
}
print($fh,Data::Dumper->Dump([\%::target_milestone,
print $fh (Data::Dumper->Dump([\%::target_milestone,
\@::legal_target_milestone,
\%::milestoneurl],
['*::target_milestone',
......@@ -314,7 +314,7 @@ sub GenerateVersionTable {
$::keywordsbyname{$name} = $id;
}
print($fh,Data::Dumper->Dump([\@::legal_keywords, \%::keywordsbyname],
print $fh (Data::Dumper->Dump([\@::legal_keywords, \%::keywordsbyname],
['*::legal_keywords', '*::keywordsbyname']));
print $fh "1;\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment