view release on metacpan or  search on metacpan

author/patch-next-version.pl  view on Meta::CPAN

		'lib/App/Pods2Site.pm' => 8,
		'lib/App/Pods2Site.pod' => 10,
		'script/pods2site' => 6
	);

foreach my $fn (keys(%files))
{
	die("Failed to find '$fn' in '$toplevel'\n") unless -f "$toplevel/$fn";
}

# verify we're clean
#
my @status = qx(git status --porcelain --ignored 2>&1);
@status = grep(!m#^!! tmp/$#, @status); 
die("Tree not clean:\n@status") if (@status || $?);
 
# find the current branch:
#
my @br = qx(git symbolic-ref --short HEAD 2>&1);
die("Failed symbref:\n@br") if $?;
chomp(@br);