X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoNewPkg.pm;fp=lib%2FPackages%2FDoNewPkg.pm;h=66a0bfe7b3863076109d476d82da8959f3d6aa2f;hb=35396b36e9658cb7346fb080531fff92a6d0fd57;hp=9be98d54aba8b0724c13106b7d8cf077220116b2;hpb=54a1d7595e76ef2e1babf2157937a2a475671d67;p=deb%2Fpackages.git diff --git a/lib/Packages/DoNewPkg.pm b/lib/Packages/DoNewPkg.pm index 9be98d5..66a0bfe 100644 --- a/lib/Packages/DoNewPkg.pm +++ b/lib/Packages/DoNewPkg.pm @@ -17,12 +17,14 @@ use Packages::Config qw( $TOPDIR @SECTIONS $ROOT ); sub do_newpkg { my ($params, $opts, $page_content) = @_; + my $cat = $opts->{cat}; if ($params->{errors}{suite}) { - fatal_error( _g( "suite not valid or not specified" ) ); + fatal_error( $cat->g( "suite not valid or not specified" ) ); } if (@{$opts->{suite}} > 1) { - fatal_error( sprintf( _g( "more than one suite specified for newpkg (%s)" ), "@{$opts->{suite}}" ) ); + fatal_error( $cat->g( "more than one suite specified for newpkg (%s)", + "@{$opts->{suite}}" ) ); } my $sort_func = sub { $_[0][0] cmp $_[1][0] }; @@ -39,8 +41,8 @@ sub do_newpkg { open NEWPKG, '<', "$TOPDIR/files/packages/newpkg_info_$suite" or do { warn "can't read newpkg_info_$suite: $!"; - fatal_error( sprintf( _g("no newpkg information found for suite %s"), - $suite) ); + fatal_error( $cat->g("no newpkg information found for suite %s", + $suite) ); return; }; while () {