RT# 81961 Repair broken links in POD documentation

[freeside.git] / bin / create-fetchmailrc

diff --git a/bin/create-fetchmailrc b/bin/create-fetchmailrc
old mode 100644 (file)
new mode 100755 (executable)
index e929711..11bde0c
--- a/bin/create-fetchmailrc
+++ b/bin/create-fetchmailrc
@@ -22,6 +22,8 @@ my $filename = "$homedir/.fetchmailrc";
 my $gid = scalar(getgrnam($username)) or die "can't find $username's gid\n";
 my $uid = scalar(getpwnam($username)) or die "can't find $username's uid\n";
 
+exit unless $ARGV[0];
+
 open(FETCHMAILRC, ">$filename") or die "can't open $filename: $!\n";
 chown $uid, $gid, $filename     or die "can't chown $uid.$gid $filename: $!\n";
 chmod 0600, $filename           or die "can't chmod 600 $filename: $!\n";