perlcritic: don't open files as bare words
This commit is contained in:
@ -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) {
|
||||
|
@ -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.
|
||||
|
Reference in New Issue
Block a user