diff options
| -rwxr-xr-x | userdrake | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -234,10 +234,10 @@ sub Refresh { sub GetFileMd5 { my @md5; foreach my $file (@_) { - open(FILE, $file) or do { print STDERR "Can't open '$file': $!"; push @md5, "" }; - binmode(FILE); - push @md5, Digest::MD5->new->addfile(*FILE)->hexdigest; - close(FILE); + open(my $FILE, $file) or do { print STDERR "Can't open '$file': $!"; push @md5, "" }; + binmode($FILE); + push @md5, Digest::MD5->new->addfile($FILE)->hexdigest; + close($FILE); } return wantarray() ? @md5 : $md5[0]; } @@ -275,8 +275,8 @@ sub GetFaceIcon { } $set->($us->{o}{iconval} = $current_icon); my $leave = 0; - $bt->signal_connect(enter => sub { $leave = 0; }); - $bt->signal_connect(leave => sub { $leave = 1; }); + $bt->signal_connect(enter => sub { $leave = 0 }); + $bt->signal_connect(leave => sub { $leave = 1 }); $bt->signal_connect(button_release_event => sub { return if $leave; if ($_[1]->button == 1) { @@ -371,7 +371,7 @@ sub AddUser { Refresh($sysfilter, $stringsearch); } } - !$error and $w->destroy; $error = 0; }) + !$error and $w->destroy; $error = 0 }) } ([ 'gtk-cancel', 1 ], [ 'gtk-ok', 0 ])), ) ); @@ -534,7 +534,7 @@ sub Delete { my $groupEnt = $ctx->LookupGroupById($usergid); if ($groupEnt) { my $member = $groupEnt->MemberName(1, 0); - if (scalar(@$member) == 0 and $groupEnt->Gid($GetValue) > 499) { + if (scalar(@$member) == 0 && $groupEnt->Gid($GetValue) > 499) { $ctx->GroupDel($groupEnt) } } @@ -910,7 +910,7 @@ sub Edit { } } } - !$error and $w->destroy; $error = 0; }) + !$error and $w->destroy; $error = 0 }) } ([ 'gtk-cancel', 1 ], [ 'gtk-ok', 0 ])), )); $tree->show; |