Andy Baugh 3 mēneši atpakaļ
vecāks
revīzija
be14c2a116
1 mainītis faili ar 1 papildinājumiem un 2 dzēšanām
  1. 1 2
      t/Net-OpenSSH-More.t

+ 1 - 2
t/Net-OpenSSH-More.t

@@ -29,10 +29,9 @@ subtest "Common tests using mocks" => sub {
         'check_master' => 1,
         'DESTROY'      => undef,
     );
-    $Net::OpenSSH::More::disable_destructor = 1;
+    local $Net::OpenSSH::More::disable_destructor = 1;
     my $obj = Net::OpenSSH::More->new( '127.0.0.1', retry_max => 1 );
     is( ref $obj, 'Net::OpenSSH::More', "Got right ref type for object upon instantiation" );
 };
 
-$Net::OpenSSH::More::disable_destructor = 0;
 done_testing();