From: Michael Adam <obnox@samba.org>
Date: Mon, 14 Jan 2008 14:44:41 +0000 (+0100)
Subject: Fix bug #5171 (perl syntax error) found by Jason Filley <jason@snakelegs.org>
X-Git-Tag: samba-3.2.0pre2~45^2~1
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=dcb5034acd35d219106e1d855f4c4d36b3c8d83b;p=thirdparty%2Fsamba.git

Fix bug #5171 (perl syntax error) found by Jason Filley <jason@snakelegs.org>

Michael
---

diff --git a/examples/logon/genlogon/genlogon.pl b/examples/logon/genlogon/genlogon.pl
index 8ebf3921411..4799ac8452d 100644
--- a/examples/logon/genlogon/genlogon.pl
+++ b/examples/logon/genlogon/genlogon.pl
@@ -45,7 +45,7 @@ if ($ARGV[1] eq "SUPPORT" || $ARGV[0] eq "support")
 }
 
 # Connect shares just used by Administration staff
-If ($ARGV[1] eq "ADMIN" || $ARGV[0] eq "admin")
+if ($ARGV[1] eq "ADMIN" || $ARGV[0] eq "admin")
 {
 	print LOGON "NET USE L: \\\\$ARGV[2]\\ADMIN\r\n";
 	print LOGON "NET USE K: \\\\$ARGV[2]\\MKTING\r\n";