File: CheckVersion.pm

package info (click to toggle)
liblocal-lib-perl 2.000029-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 344 kB
  • sloc: perl: 1,141; makefile: 13
file content (27 lines) | stat: -rw-r--r-- 460 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
package CheckVersion;
use strict;
use warnings;

sub import {
  my $target = caller;
  my $result = check_version(@ARGV);
  exit $result;
}

sub check_version {
  my ($module, $need_v) = @_;
  require ExtUtils::MakeMaker;
  (my $file = "$module.pm") =~ s{::}{/}g;
  my ($pm) = grep { -e } map { "$_/$file" } @INC;
  if (!$pm) {
    return 1;
  }
  my $v = MM->parse_version($pm) || 0;
  $v = eval $v;
  if ($v >= $need_v) {
    return 0;
  }
  return 2;
}

1;