[p5sagit/Distar.git] / helpers / changelog-context

#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';

my $version = shift or die "no version specified!";
my $changelog = shift or die "no changelog file specified!";

open my $fh, '<', $changelog
  or die "can't open $changelog: $!";
my $context;
my $found_version;
while (my $line = <$fh>) {
  if ($found_version) {
    last
      if $line =~ /^\S/;
    $context++;
  }
  elsif ($line =~ /^v?\Q$version\E/) {
    $found_version = 1;
  }
}
close $fh;
die "couldn't find heading for $version!"
  unless $found_version;

print "$context\n";
Commit	Line	Data
c1a1a773	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4
	5	my $version = shift or die "no version specified!";
	6	my $changelog = shift or die "no changelog file specified!";
	7
	8	open my $fh, '<', $changelog
	9	or die "can't open $changelog: $!";
	10	my $context;
	11	my $found_version;
	12	while (my $line = <$fh>) {
	13	if ($found_version) {
	14	last
	15	if $line =~ /^\S/;
	16	$context++;
	17	}
	18	elsif ($line =~ /^v?\Q$version\E/) {
	19	$found_version = 1;
	20	}
	21	}
	22	close $fh;
	23	die "couldn't find heading for $version!"
	24	unless $found_version;
	25
	26	print "$context\n";