[osm2go] Contents of /branches/ports/maemo/debian/parse-changelog

#!/usr/bin/perl

$CHANGELOG = 'debian/changelog';

($what, $trunkv) = (@ARGV);
defined($what) && defined($trunkv) or die "usage: $0 WHAT TRUNK_VERSION\n";
$trunkv_re = quotemeta($trunkv);
open(CL, '<', $CHANGELOG) || die "open($CHANGELOG) failed: $!\n";
while (<CL>) {
    m{\((.*?)\b$trunkv_re\b(.*?)\)} or next;
    ($prefix, $suffix) = ($1, $2);
    last;
}
close CL;
if (! (defined($suffix) || defined($prefix))) {
    die "error: $CHANGELOG does not list trunk version $trunkv\n";
}
if ($what eq 'prefix') {
    print $prefix, "\n";
}
else {
    print $suffix, "\n";
}
1	#!/usr/bin/perl
2
3	$CHANGELOG = 'debian/changelog';
4
5	($what, $trunkv) = (@ARGV);
6	defined($what) && defined($trunkv) or die "usage: $0 WHAT TRUNK_VERSION\n";
7	$trunkv_re = quotemeta($trunkv);
8	open(CL, '<', $CHANGELOG) \|\| die "open($CHANGELOG) failed: $!\n";
9	while (<CL>) {
10	m{\((.?)\b$trunkv_re\b(.?)\)} or next;
11	($prefix, $suffix) = ($1, $2);
12	last;
13	}
14	close CL;
15	if (! (defined($suffix) \|\| defined($prefix))) {
16	die "error: $CHANGELOG does not list trunk version $trunkv\n";
17	}
18	if ($what eq 'prefix') {
19	print $prefix, "\n";
20	}
21	else {
22	print $suffix, "\n";
23	}