checklinks: better error messages, removed commented out relicts

1 files changed, 1 insertions, 4 deletions

diff --git a/bin/checklinks b/bin/checklinks
index 1ac0953..4cb1200 100755
--- a/bin/checklinks
+++ b/bin/checklinks
@@ -27,7 +27,7 @@ GetOptions(
 	'p|parameter=s' => \%substitute,
 );
 
-open(LINKS, '<', $linkfile) or die($!);
+open(LINKS, '<', $linkfile) or die("Can't open $linkfile: $!");
 while(<LINKS>) {
 	chomp;
 	foreach my $key (keys(%substitute)) {
@@ -59,9 +59,6 @@ sub check_symlink {
 	my $dst = shift;
 
 	mkdirs($src);
-	#if (not -e "$base/$dst") {
-	#	print_format('no dst!!', $src, $dst, 'red bold');
-	#}
 	if (not -l "$base/$src" and not -e "$base/$src") {
 		symlink($dst, "$base/$src");
 		print_format('created', $src, $dst, 'cyan');