From 026beee0f75fcebb9bd4414d3ae541e22ac2145b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 6 Nov 2020 17:06:44 +0100 Subject: [PATCH] Bug 25067: Fix perlcritic errors --- misc/translator/xgettext-installer | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/misc/translator/xgettext-installer b/misc/translator/xgettext-installer index fd9dc29c8e..79be95798c 100755 --- a/misc/translator/xgettext-installer +++ b/misc/translator/xgettext-installer @@ -121,7 +121,7 @@ for my $file (@files) { # discard non strings next if ( $line =~ /^(\s|%s|-|[[:punct:]]|\(|\))*$/ or length($line) < 2 ); if ( not $pot->{$line} ) { - my $msg = new Locale::PO( + my $msg = Locale::PO->new( -msgid => $line, -msgstr => '', -reference => "$file:$table_name:$tablec:row:$rowc:mul:$mulc" @@ -130,7 +130,7 @@ for my $file (@files) { } } } elsif (defined $row->{$field} && length($row->{$field}) > 1 && !$pot->{ $row->{$field} }) { - my $msg = new Locale::PO( + my $msg = Locale::PO->new( -msgid => $row->{$field}, -msgstr => '', -reference => "$file:$table_name:$tablec:row:$rowc" @@ -145,7 +145,7 @@ for my $file (@files) { for my $description ( @{ $yaml->{'description'} } ) { $desccount++; if ( length($description) > 1 and not $pot->{$description} ) { - my $msg = new Locale::PO( + my $msg = Locale::PO->new( -msgid => $description, -msgstr => '', -reference => "$file:description:$desccount" -- 2.20.1