3 # Accepts a debian/changelog file as input
5 # $0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/changelog
12 if (/^(\S+)\s+\((\S+)\)\s+([^;]+)(.*)$/s && $begin) {
16 $version =~ s/\+lenny//;
17 $version =~ s/lenny//;
18 $version =~ s/~debian.*//;
20 $name (${version}maemo1) fremantle; urgency=low
25 print " -- Nito Martinez <Nito\@Qindel.ES> $date\n\n";