File: get_version

package info (click to toggle)
spamassassin 4.0.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 22,988 kB
  • sloc: perl: 88,863; ansic: 5,193; sh: 3,737; javascript: 339; sql: 295; makefile: 209; python: 49
file content (15 lines) | stat: -rwxr-xr-x 432 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl

open (IN, "< lib/Mail/SpamAssassin.pm")
	or die "cannot open lib/Mail/SpamAssassin.pm\n";
while (<IN>) {
  ($VERSION) = /^\s*\$VERSION\s*=\s*\"(\S+)\"\;/ unless ( $VERSION );
  ($EXTRA) = /^\s*\@EXTRA_VERSION\s*=\s*q\w\((\S+?)\)/ unless ( $EXTRA );
  ($DEVEL) = /^\s*\$IS_DEVEL_BUILD\s*=\s*(1);/ unless ( $DEVEL );
}
close IN;

print $VERSION;
print "-$EXTRA" if ( $EXTRA );
print "-svn" if ( $DEVEL );
print "\n";