File replace-version.pl of Package zeek-nightly

Overview Repositories Revisions Requests Users Attributes Meta

File replace-version.pl of Package zeek-nightly

#!/usr/bin/env perl

use 5.14.1;
use strict;
use warnings;

use Carp;
my $fullversion;
my $version;
my $release;

{
	my $versionfile = "zeek-nightly/VERSION";
	# if the file does not exist, we are probably running a local test - use the toplevel one instead
	$versionfile = "VERSION" unless ( -e "zeek-nightly/VERSION" );
	open(my $fh, '<', $versionfile) or die ("Could not open VERSION");
	local $/ = undef;
	my $file = <$fh>;
	close $fh;
	unless ( $file =~ m#^(\d+\.\d+\.\d+)(-(dev\.)?(\d+))?# ) {
		croak "Cannot parse version $file";
	}

#$fullversion = $file;
	# nightly is special...
	$fullversion="nightly";
	$version = $1;
	$release = $4;
	$release //= 0;
}

while ( my $line = <> ) {
	$line =~ s/%FULLVERSION%/$fullversion/g;
	$line =~ s/%VERSION%/$version/g;
	$line =~ s/%RELEASE%/$release/g;
	$line =~ s/%KIND%/-nightly/g;
	$line =~ s/%PATHPOSTFIX%/-nightly/g;
        if ( $line =~ m#^%DEBIANCONFLICTS# ) {
                next;
        } elsif ( $line =~ m#^%RPMCONFLICTS# ) {
                next;
        }
	print $line;
}

Places

File replace-version.pl of Package zeek-nightly

Places