aboutsummaryrefslogblamecommitdiffstats
path: root/macros/xerces-version.pl
blob: 5c21b4e27500d2d6ec2e4ec40eef143a16d5e8b2 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13












                                                    
#!/usr/bin/perl

$maj = 0;
$min = 0;
while (<>) {
  if (/xerces-c(\d+)_(\d+)\.so$/) {
    if ($1 > $maj || (\\$1 == $maj && \$2 > $min)) {
      $maj = $1;
      $min = $2;
    }
  }
}
print $maj,"_",$min