inject Distar behavior at import time rather than compile time

[p5sagit/Distar.git] / helpers / add-changelog-heading

#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use Getopt::Long qw(:config gnu_getopt);
GetOptions(
  "git"     => \my $git,
) or die("Error in command line arguments\n");

my $version = shift;
my @ymd = (gmtime)[5,4,3];
$ymd[0] += 1900;
$ymd[1] += 1;
my $changes_line = sprintf "%s - %i-%02i-%02i", $version, @ymd;

foreach my $changes (@ARGV) {
    print "Adding $version heading to $changes.\n";
    open my $fh, '+<:raw', $changes
      or die "Can't open $changes: $!";

    my $content = '';
    my $context;

    while (<$fh>) {
        if (defined $context) {
            if (/^\S/) {
                local $/;
                $content .= $_ . <$fh>;
                last;
            }
            $context++;
        }
        elsif (/^v?(\d+(?:\.\d+)*)(\s+|$)/) {
            if ($1 eq $version) {
                die "$changes already has an entry for $version!\n";
            }
            else {
                die "No changelog entries found before $1!\n";
            }
        }
        elsif (/^\s+[-*+#]/) {
            $content .= $changes_line;
            $content .= (/(\r?\n)/ || $content =~ /(\r?\n)/) ? $1 : "\n";
            $context = 1;
        }
        $content .= $_;
    }

    seek $fh, 0, 0;
    truncate $fh, 0;
    print { $fh } $content;
    close $fh;

    if ($git) {
        local $ENV{GIT_DIFF_OPTS} = "-u$context";
        system qw(git add -p), $changes;
    }
}