view release on metacpan or  search on metacpan

scripts/PBConfig.pm  view on Meta::CPAN

	}

	close(FS);
	close(FD);

	if ($c != scalar @config) {
	#if (1) {
		die "Could not find all hooks for setting default values in $fn.";
	} else {
		unlink("$fn");
		rename("$fn.new","$fn");
	}
}

sub opt_help
{
	foreach (@config) {
		my ($n);
		$n = $_->[1] eq "b" ? "(no-)".$_->[0] : $_->[0];
		print "     --".$n."\t".$_->[3]."\n";
	}