diff options
Diffstat (limited to 'Bugzilla/Field.pm')
| -rw-r--r-- | Bugzilla/Field.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Bugzilla/Field.pm b/Bugzilla/Field.pm index 219172094..aa3551182 100644 --- a/Bugzilla/Field.pm +++ b/Bugzilla/Field.pm @@ -47,7 +47,7 @@ Bugzilla::Field - a particular piece of information about bugs # Instantiate a Field object for an existing field. my $field = new Bugzilla::Field({name => 'qacontact_accessible'}); if ($field->obsolete) { - print $field->description . " is obsolete\n"; + say $field->description . " is obsolete"; } # Validation Routines @@ -1173,8 +1173,8 @@ sub populate_field_definitions { undef, $field_description); if ($old_field_id && ($old_field_name ne $new_field_name)) { - print "SQL fragment found in the 'fielddefs' table...\n"; - print "Old field name: " . $old_field_name . "\n"; + say "SQL fragment found in the 'fielddefs' table..."; + say "Old field name: $old_field_name"; # We have to fix saved searches first. Queries have been escaped # before being saved. We have to do the same here to find them. $old_field_name = url_quote($old_field_name); @@ -1211,8 +1211,8 @@ sub populate_field_definitions { $sth_UpdateSeries->execute($query, $series_id); } # Now that saved searches have been fixed, we can fix the field name. - print "Fixing the 'fielddefs' table...\n"; - print "New field name: " . $new_field_name . "\n"; + say "Fixing the 'fielddefs' table..."; + say "New field name: $new_field_name"; $dbh->do('UPDATE fielddefs SET name = ? WHERE id = ?', undef, ($new_field_name, $old_field_id)); } |