#!/usr/bin/perl
use strict;
use warnings;
use Git;

my $series_f;
for ('series', 'series.conf') {
	if (-f $_) {
		$series_f = $_;
		last
	}
}

die 'no series file' unless defined $series_f;

my $repo = Git->repository();
$repo->command_noisy('rm', @ARGV);

shift @ARGV if ($ARGV[0] eq '-f');

my $series;
open(my $series_h, "<$series_f") or die "cannot open $series_f for r";
{
	local $/;
	$series = <$series_h>;
}
close($series_h);

my $re = join '|', map { qr/^\s*\Q$_\E\n/m } @ARGV;
$series =~ s/$re//g;

open($series_h, ">$series_f") or die "cannot open $series_f for w";
print $series_h $series;
close($series_h);

1;
