Packages::DoNewPkg: Support new backend format
authorFrank Lichtenheld <frank@lichtenheld.de>
Sun, 28 Oct 2007 20:35:13 +0000 (21:35 +0100)
committerFrank Lichtenheld <frank@lichtenheld.de>
Sun, 28 Oct 2007 20:35:13 +0000 (21:35 +0100)
We don't actually use the translation support for
short descriptions here since the chances are slim
that we will have any for such new packages. Can be added
later or by someone else ;)

lib/Packages/DoNewPkg.pm

index e5b9e88a3ca9148208dae1ddb601581d13c6c8bf..9be98d54aba8b0724c13106b7d8cf077220116b2 100644 (file)
@@ -45,7 +45,7 @@ sub do_newpkg {
     };
     while (<NEWPKG>) {
        chomp;
-       my @data = split /\s/, $_, 10;
+       my @data = split /\s/, $_, 11;
 
        next unless $data[2]; #removed packages
        next unless $data[3] eq $suite;