shithub: sox

ref: 00e38f8a6564fa92cc93e30b4ff8726312b1c95e
dir: /update_debian_version.pl/

#!/usr/bin/perl -w
# This script is meant to live in SoX CVS.
# Its sole purpose is to update the versions in the debian directory
# so users can always build a binary package after a CVS checkout.
#
# Written by Pascal Giard <evilynux@gmail.com>.
use strict;

my $file = "configure.ac";
my $changelog = "debian/changelog";
my $rules = "debian/rules";
my $version;
my @content;

die "$file doesn't exist.\n" unless( -e $file );
die "$changelog doesn't exist.\n" unless( -e $changelog );
die "$rules exist.\n" unless( -e $rules );

# Get current version
open( FH, $file );
while( <FH> ) {
    if( $_ =~ m/AC_INIT\(SoX, (\d+\.\d+\.\d+),/ ) {
        $version = $1;
        last;
    }
}
close( FH );

die "Can't determine version number.\n" unless( $version );

# Update debian/changelog
open( FH, $changelog );
@content = <FH>;
close( FH );
die "Can't modify $changelog!\n"
  unless $content[0] =~ s/^(sox \()\d+\.\d+\.\d+(\+cvs-1\).*)$/$1$version$2/;

open( FH, "> $changelog" );
print FH @content;
close( FH );

# Update debian/rules
open( FH, $rules );
@content = <FH>;
close( FH );
$_ =~ s/^(DEB_TAR_SRCDIR := sox-)\d+\.\d+\.\d+(.*)$/$1$version$2/
  foreach(@content);
open( FH, ">" . $rules );
print FH @content;
close( FH );