janitor duty (merges from 3.0) and cleanup compiler warning on SuSE 9 in the end...

[ira/wip.git] / examples / misc / modify_samba_config.pl

diff --git a/examples/misc/modify_samba_config.pl b/examples/misc/modify_samba_config.pl
index eb997f9b0c87097bfe0da35a3cecf8d3e136a591..ad958625d66481042819cf8412e46b47fec5f839 100755 (executable)
--- a/examples/misc/modify_samba_config.pl
+++ b/examples/misc/modify_samba_config.pl
@@ -66,7 +66,7 @@ while (<CONFIGFILE>) {
        
        ## check for a param = value
        if ($_ =~ /=/) {
-               ($param, $value) = split (/=/, $_);
+               ($param, $value) = split (/=/, $_,2);
                $param =~ s/./\l$&/g;
                $param =~ s/\s+//g;
                $value =~ s/^\s+//;