From 45a4eea5b94d5a90aa83014c51366d42c39ed746 Mon Sep 17 00:00:00 2001 From: Frédéric Buclin Date: Wed, 17 Aug 2011 13:18:47 +0200 Subject: Bug 662070: Use say() instead of print() where appropriate r=glob a=LpSolit --- Bugzilla/Field.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Bugzilla/Field.pm') 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)); } -- cgit v1.2.3-24-g4f1b