ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

perlcritic: don't open files as bare words

Browse Source
This commit is contained in:
Graham Christensen
2021-09-06 22:19:00 -04:00
parent efd1d78b97
commit 21e1ff0da1
5 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/script/hydra-s3-backup-collect-garbage
View File

@ -26,9 +26,9 @@ my $client = Net::Amazon::S3::Client->new( s3 => Net::Amazon::S3->new( retry =>
my $db = Hydra::Model::DB->new();
my $gcRootsDir = getGCRootsDir;
opendir DIR, $gcRootsDir or die;
my @roots = readdir DIR;
closedir DIR;
opendir my $dir, $gcRootsDir or die;
my @roots = readdir $dir;
closedir $dir;
my @actual_roots = ();
foreach my $link (@roots) {

6
src/script/hydra-update-gc-roots
View File

@ -63,9 +63,9 @@ sub keepBuild {
# Read the current GC roots.
print STDERR "*** reading current roots...\n";
my $gcRootsDir = getGCRootsDir;
opendir DIR, $gcRootsDir or die;
my @roots = readdir DIR;
closedir DIR;
opendir my $dir, $gcRootsDir or die;
my @roots = readdir $dir;
closedir $dir;
# For scheduled builds, we register the derivation as a GC root.