diff options
Diffstat (limited to 'debian/highest_symbol_version')
| -rw-r--r-- | debian/highest_symbol_version | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/debian/highest_symbol_version b/debian/highest_symbol_version new file mode 100644 index 0000000..ce6039a --- /dev/null +++ b/debian/highest_symbol_version @@ -0,0 +1,20 @@ +#!/usr/bin/perl +# print the highest package version found in the symbols file read as input + +use v5.30; +use warnings; + +use Dpkg::Version; + +my $highest = 0; +while (<>) { + my ($version) = /^\s+\S+\s+(\S+)$/; + next if not $version; + next if version_compare($highest, $version) == 1; + $highest = $version; +} + +die 'could not find a version number in the input' if not $highest; + +say $highest; + |