kpriv/pkgsrc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

pkgsrc-todo: fix old bug that broke adding entries at the end of the list

Browse source 
Bump version.
This commit is contained in:
wiz 2021-05-20 10:51:41 +00:00
parent aaea7df82e
commit 6e6f8533c9
2 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
pkgtools/pkgsrc-todo/Makefile
View file

@ -1,7 +1,6 @@
# $NetBSD: Makefile,v 1.17 2020/08/31 18:10:59 wiz Exp $
# $NetBSD: Makefile,v 1.18 2021/05/20 10:51:41 wiz Exp $
PKGNAME= pkgsrc-todo-1.3
PKGREVISION= 5
PKGNAME= pkgsrc-todo-1.4
CATEGORIES= pkgtools
MAINTAINER= wiz@NetBSD.org

15
pkgtools/pkgsrc-todo/files/add_todo.pl
View file

@ -1,9 +1,8 @@
#!@PERL@
# $NetBSD: add_todo.pl,v 1.1.1.1 2009/08/30 10:40:34 wiz Exp $
# $NetBSD: add_todo.pl,v 1.2 2021/05/20 10:51:42 wiz Exp $
# TODO:
# fix adding entry after last one (currently broken)
# check if package was removed
# check if package was downgraded (e.g. oto)
# allow multiple command line arguments
@ -17,7 +16,7 @@ use constant regex_pkgname => qr"^(.*)-(\d[^-]*)$";
my ($comment, $entry, $grep_result, $newname, $newpkg, $newprinted,
$newversion, %opt, $verbose);
my $PKGSRCDIR = "@PKGSRCDIR@";
my $PKGSRCDIR = "@PKGSRCDIR@";
my $input = "$PKGSRCDIR/doc/TODO";
my $wipinput = "$PKGSRCDIR/wip/TODO";
my $output = "$input.new";
@ -90,11 +89,18 @@ if (update_done($newname, $newversion)) {
open IN, $input or die "can't open input file ``$input''";
open OUT, ">$output" or die "can't open output file ``$output''";
my $todo_list_found = 0;
while (<IN>) {
if ($newprinted or not m/^ o /) {
if ($newprinted or (not m/^ o / and $todo_list_found == 0)) {
print OUT $_;
next;
}
if (not m/^ o / and $todo_list_found == 1) {
print OUT " o $newpkg\n";
print OUT $_;
$newprinted = 1;
next;
}
chomp();
s/^\to //;
@ -106,6 +112,7 @@ while (<IN>) {
$comment = "";
}
$todo_list_found = 1;
$entry =~ regex_pkgname;
my ($entryname, $entryversion) = ($1, $2);