Collectd::Unixsock: Remove unused $fh variables

diff --git a/bindings/perl/lib/Collectd/Unixsock.pm b/bindings/perl/lib/Collectd/Unixsock.pm
index f9db922ce77a7bc8a24bf03c0abf7a5809c94459..4ec7993d0986e35c56eb0bcc0e4b351d9e3a5e89 100644 (file)
--- a/bindings/perl/lib/Collectd/Unixsock.pm
+++ b/bindings/perl/lib/Collectd/Unixsock.pm
@@ -316,7 +316,6 @@ sub putval
        my %args = @_;
 
        my ($status, $msg, $identifier, $values);
-       my $fh = $self->{sock} or confess;
 
        my $interval = defined $args{interval} ?
        ' interval=' . _escape_argument ($args{interval}) : '';
@@ -493,7 +492,6 @@ sub putnotif
        my %args = @_;
 
        my $status;
-       my $fh = $self->{sock} or confess;
 
        my $msg; # message sent to the socket
        
@@ -552,8 +550,6 @@ sub flush
        my $self  = shift;
        my %args = @_;
 
-       my $fh = $self->{sock} or confess;
-
        my $msg = "FLUSH";
 
        $msg .= " timeout=$args{timeout}" if defined $args{timeout};