bump-pkgrel.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

while (<>) {
    if (/^pkgrel *= *([0-9]+)$/) {
        print "pkgrel=${1}.1\n";
    } elsif (/^pkgrel *= *([0-9]+)\.([0-9]+)$/) {
        $minor = $2 + 1;
        print "pkgrel=${1}.${minor}\n";
    } else {
        print
    }
}