#!/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"; |