Merge pull request #104 from propaganda23/master

Perl strict mode error
This commit is contained in:
Albert Zeyer
2011-07-21 15:51:02 -07:00
+1 -1
View File
@@ -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",