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-4.0.0alpha6~801^2~3866^2~18
X-Git-Url: http://git.samba.org/samba.git/?p=ira%2Fwip.git;a=commitdiff_plain;h=f326cd2be51f2d83de4f5fcb656a9ffc9073d987

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

Michael
(This used to be commit dcb5034acd35d219106e1d855f4c4d36b3c8d83b)
---

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";