my $pristine = 1;
my $kernver;
+# Use the CVS tag first otherwise use the portals version
sub get_tag()
{
my $tag;
+ my $line;
my $tagfile = new IO::File;
if (!$tagfile->open("CVS/Tag")) {
- return "HEAD";
+ my $verfile = new IO::File;
+ if (!$verfile->open("portals/include/config.h")) {
+ return "UNKNOWN";
+ }
+ while(defined($line = <$verfile>)) {
+ $line =~ /\#define VERSION "(.*)"/;
+ if ($1) {
+ $tag = $1;
+ last;
+ }
+ }
+ $verfile->close();
+ return $tag
} else {
my $tmp = <$tagfile>;
$tagfile->close();
$cur_dir =~ s/\/CVS\/Entries$//;
my @statbuf = stat("$cur_dir/$file");
my $mtime = $statbuf[9];
+ if (!defined($mtime)) {
+ next;
+ }
my $local_date = gmtime($mtime);
if ($local_date ne $date &&
$file ne "lustre.spec.in") {
}
while (defined($line = <$config>)) {
chomp($line);
- if ($line =~ /LINUX = (.*)/) {
+ if ($line =~ /LINUX :?= (.*)/) {
$dir = $1;
last;
}