Fix global symbol error (perl strict mode)

2011-07-21 19:53:03 +02:00
parent 8a0fda207a
commit 94007b71e5
1 changed files with 1 additions and 1 deletions
@@ -261,7 +261,7 @@ $SIG{__DIE__} = sub {
 };

 $avahi_publish = fork();
-$pw_clause = (length $password) ? "pw=true" : "pw=false";
+my $pw_clause = (length $password) ? "pw=true" : "pw=false";
 if ($avahi_publish==0) {
    { exec 'avahi-publish-service',
        join('', map { sprintf "%02X", $_ } @hw_addr) . "\@$apname",