From c0bcbda3d5536650fff9fdca5b4a9f3ec20ba288 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Fri, 10 Apr 2009 14:29:13 +0200
Subject: checklinks: better error messages, removed commented out relicts

---
 bin/checklinks | 5 +----
 1 file changed, 1 insertion(+), 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');
-- 
cgit v1.2.3