23 lines
480 B
Perl
23 lines
480 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Dpkg::Version;
|
||
|
|
|
||
|
|
my $version;
|
||
|
|
|
||
|
|
open(my $fh, '-|', 'dpkg-parsechangelog -S version') or die "Failed to execute dpkg-parsechangelog: $!";
|
||
|
|
{
|
||
|
|
local $/;
|
||
|
|
$version = <$fh>;
|
||
|
|
}
|
||
|
|
close $fh;
|
||
|
|
|
||
|
|
$version =~ s/\s+$//;
|
||
|
|
|
||
|
|
die "No version found or empty output from dpkg-parsechangelog" unless defined $version and $version ne '';
|
||
|
|
|
||
|
|
my $v = Dpkg::Version->new($version);
|
||
|
|
my $vs = $v->as_string(omit_epoch => 1, omit_revision => 1);
|
||
|
|
|
||
|
|
print "$vs\n";
|