diff options
| author | bbaetz%acm.org <> | 2003-04-25 09:47:17 +0200 |
|---|---|---|
| committer | bbaetz%acm.org <> | 2003-04-25 09:47:17 +0200 |
| commit | 95570aca4a69f31f0e5dad2148869043f0551c48 (patch) | |
| tree | 1abd615e71e325f39bbf4c3b9c83db47ea4e067c /globals.pl | |
| parent | 46ce62194220fcf8cac539a07002e9180fef900f (diff) | |
| download | bugzilla-95570aca4a69f31f0e5dad2148869043f0551c48.tar.gz bugzilla-95570aca4a69f31f0e5dad2148869043f0551c48.tar.xz | |
Bug 179513, take N. Fix the bracketing so that it actually works...
r=myk, justdave
a=justdave
Diffstat (limited to 'globals.pl')
| -rw-r--r-- | globals.pl | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/globals.pl b/globals.pl index 805bba882..911f99278 100644 --- a/globals.pl +++ b/globals.pl @@ -250,8 +250,8 @@ sub GenerateVersionTable { print $fh "#\n"; require Data::Dumper; - print($fh,Data::Dumper->Dump([\@::log_columns, \%::versions], - ['*::log_columns', '*::versions'])); + print $fh (Data::Dumper->Dump([\@::log_columns, \%::versions], + ['*::log_columns', '*::versions'])); foreach my $i (@list) { if (!defined $::components{$i}) { @@ -259,23 +259,23 @@ sub GenerateVersionTable { } } @::legal_versions = sort {uc($a) cmp uc($b)} keys(%varray); - print($fh,Data::Dumper->Dump([\@::legal_versions, \%::components], - ['*::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, - \@::legal_priority, \@::legal_severity, - \@::legal_platform, \@::legal_opsys, - \@::legal_bug_status, \@::legal_resolution], - ['*::legal_components', '*::legal_product', - '*::legal_priority', '*::legal_severity', - '*::legal_platform', '*::legal_opsys', - '*::legal_bug_status', '*::legal_resolution'])); + print $fh (Data::Dumper->Dump([\@::legal_components, \@::legal_product, + \@::legal_priority, \@::legal_severity, + \@::legal_platform, \@::legal_opsys, + \@::legal_bug_status, \@::legal_resolution], + ['*::legal_components', '*::legal_product', + '*::legal_priority', '*::legal_severity', + '*::legal_platform', '*::legal_opsys', + '*::legal_bug_status', '*::legal_resolution'])); - print($fh,Data::Dumper->Dump([\@::settable_resolution, \%::proddesc, - \@::enterable_products, \%::prodmaxvotes], - ['*::settable_resolution', '*::proddesc', - '*::enterable_products', '*::prodmaxvotes'])); + print $fh (Data::Dumper->Dump([\@::settable_resolution, \%::proddesc, + \@::enterable_products, \%::prodmaxvotes], + ['*::settable_resolution', '*::proddesc', + '*::enterable_products', '*::prodmaxvotes'])); if ($dotargetmilestone) { # reading target milestones in from the database - matthew@zeroknowledge.com @@ -298,12 +298,12 @@ sub GenerateVersionTable { } } - print($fh,Data::Dumper->Dump([\%::target_milestone, - \@::legal_target_milestone, - \%::milestoneurl], - ['*::target_milestone', - '*::legal_target_milestone', - '*::milestoneurl'])); + print $fh (Data::Dumper->Dump([\%::target_milestone, + \@::legal_target_milestone, + \%::milestoneurl], + ['*::target_milestone', + '*::legal_target_milestone', + '*::milestoneurl'])); } SendSQL("SELECT id, name FROM keyworddefs ORDER BY name"); @@ -314,8 +314,8 @@ sub GenerateVersionTable { $::keywordsbyname{$name} = $id; } - print($fh,Data::Dumper->Dump([\@::legal_keywords, \%::keywordsbyname], - ['*::legal_keywords', '*::keywordsbyname'])); + print $fh (Data::Dumper->Dump([\@::legal_keywords, \%::keywordsbyname], + ['*::legal_keywords', '*::keywordsbyname'])); print $fh "1;\n"; close $fh; |