perlcritic: explicitly assign the result of readdir/file reads

src/lib/Hydra/Plugin/CoverityScan.pm

@@ -53,9 +53,9 @@ sub buildFinished {
     my $covTarball;
 
     opendir my $tarballs_handle, $tarballs or die;
-    while (readdir $tarballshandle) {
-        next unless $_ =~ /.*-coverity-int\.(tgz|lzma|xz|bz2|zip)$/;
-        $covTarball = "$tarballs/$_"; last;
+    while (my $file = readdir $tarballshandle) {
+        next unless $file =~ /.*-coverity-int\.(tgz|lzma|xz|bz2|zip)$/;
+        $covTarball = "$tarballs/$file"; last;
     }
     closedir $tarballs_handle;
 

src/lib/Hydra/Plugin/SoTest.pm

@@ -102,8 +102,8 @@ sub buildFinished {
     open( $authfile, "<", $sotest->{authfile} )
       or die "Cannot open Sotest authfile \${\$sotest->{authfile}}";
 
-    while (<$authfile>) {
-        if ( $_ =~ /(.+):(.+)/m ) {
+    while (my $line = <$authfile>) {
+        if ( $line =~ /(.+):(.+)/m ) {
             $sotest_username = $1;
             $sotest_password = $2;
         }