summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorbbaetz%acm.org <>2003-04-25 13:16:01 +0200
committerbbaetz%acm.org <>2003-04-25 13:16:01 +0200
commitadc665e91aa228734632e51cb42d671bbbab9f7f (patch)
tree3c68cfce216622425b0444a017e57baac2b8d055
parent95570aca4a69f31f0e5dad2148869043f0551c48 (diff)
downloadbugzilla-adc665e91aa228734632e51cb42d671bbbab9f7f.tar.gz
bugzilla-adc665e91aa228734632e51cb42d671bbbab9f7f.tar.xz
Bug 172331 - importxml.pl warnings under perl 5.8
r,a=justdave
-rwxr-xr-ximportxml.pl12
1 files changed, 6 insertions, 6 deletions
diff --git a/importxml.pl b/importxml.pl
index 7979dfcf9..40182c954 100755
--- a/importxml.pl
+++ b/importxml.pl
@@ -227,7 +227,7 @@ if (defined $tree->[1][0]->{'urlbase'}) {
}
-my $bugqty = ($#{@{$tree}->[1]} +1 -3) / 4;
+my $bugqty = ($#{$tree->[1]} +1 -3) / 4;
my $log = "Imported $bugqty bug(s) from $urlbase,\n sent by $exporter.\n\n";
for (my $k=1 ; $k <= $bugqty ; $k++) {
my $cur = $k*4;
@@ -261,7 +261,7 @@ for (my $k=1 ; $k <= $bugqty ; $k++) {
my %bug_fields;
my $err = "";
- for (my $i=3 ; $i < $#{@{$tree}->[1][$cur]} ; $i=$i+4) {
+ for (my $i=3 ; $i < $#{$tree->[1][$cur]} ; $i=$i+4) {
if (defined $multiple_fields{$tree->[1][$cur][$i]}) {
if (defined $bug_fields{$tree->[1][$cur][$i]}) {
$bug_fields{$tree->[1][$cur][$i]} .= " " . $tree->[1][$cur][$i+1][2];
@@ -277,7 +277,7 @@ for (my $k=1 ; $k <= $bugqty ; $k++) {
$err .= "<$tree->[1][$cur][$i]>";
if (defined $tree->[1][$cur][$i+1][3]) {
$err .= "\n";
- for (my $j=3 ; $j < $#{@{$tree}->[1][$cur][$i+1]} ; $j=$j+4) {
+ for (my $j=3 ; $j < $#{$tree->[1][$cur][$i+1]} ; $j=$j+4) {
$err .= " <". $tree->[1][$cur][$i+1][$j] . ">";
$err .= " $tree->[1][$cur][$i+1][$j+1][2] ";
$err .= "</". $tree->[1][$cur][$i+1][$j] . ">\n";
@@ -290,7 +290,7 @@ for (my $k=1 ; $k <= $bugqty ; $k++) {
}
my @long_descs;
- for (my $i=3 ; $i < $#{@{$tree}->[1][$cur]} ; $i=$i+4) {
+ for (my $i=3 ; $i < $#{$tree->[1][$cur]} ; $i=$i+4) {
if ($tree->[1][$cur][$i] =~ /long_desc/) {
my %long_desc;
$long_desc{'who'} = $tree->[1][$cur][$i+1][4][2];
@@ -418,9 +418,9 @@ for (my $k=1 ; $k <= $bugqty ; $k++) {
push (@query, "version");
} else {
push (@query, "version");
- push (@values, SqlQuote(@{$::versions{$product[0]}}->[0]));
+ push (@values, SqlQuote($::versions{$product[0]}->[0]));
$err .= "Unknown version $bug_fields{'version'} in product $product[0]. ";
- $err .= "Setting version to \"@{$::versions{$product[0]}}->[0]\".\n";
+ $err .= "Setting version to \"$::versions{$product[0]}->[0]\".\n";
}
if (defined ($bug_fields{'priority'}) &&