File: getver.pl

package info (click to toggle)
golang-defaults 2%3A1.11~1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 168 kB
  • sloc: sh: 13; perl: 7; makefile: 5
file content (14 lines) | stat: -rwxr-xr-x 287 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl

# Extract upstream version from version in changelog.

use warnings;
use strict;

use Dpkg::Changelog::Parse;

my $fields = changelog_parse();
my $v = $fields->{Version}->version();
$v =~ /^([0-9]+\.[0-9]+).*/ or die 'INVALID VERSION! (needs X.Y)';

printf("%s\n", $1);