Exit fast if at directory doesn't exist https://sourceforge.net/p/webadmin/bugs/5479/

This commit is contained in:
Jamie Cameron
2021-04-15 17:45:12 -07:00
parent b72dc18e72
commit 83ce82502d
6 changed files with 6 additions and 6 deletions

View File

@@ -6,7 +6,7 @@ our (%config);
sub list_atjobs
{
my @rv;
opendir(my $DIR, $config{'at_dir'});
opendir(my $DIR, $config{'at_dir'}) || return ();
while(my $f = readdir($DIR)) {
my $p = "$config{'at_dir'}/$f";
if ($f =~ /^c(\S{5})(\S+)$/) {

View File

@@ -5,7 +5,7 @@ use POSIX;
sub list_atjobs
{
local @rv;
opendir(DIR, $config{'at_dir'});
opendir(DIR, $config{'at_dir'}) || return ();
while($f = readdir(DIR)) {
local $p = "$config{'at_dir'}/$f";
if ($f =~ /^(\d+)\.a$/) {

View File

@@ -6,7 +6,7 @@ our (%config);
sub list_atjobs
{
my @rv;
opendir(my $DIR, $config{'at_dir'});
opendir(my $DIR, $config{'at_dir'}) || return ();
while(my $f = readdir($DIR)) {
my $p = "$config{'at_dir'}/$f";
if ($f =~ /^a(\S{5})(\S+)$/) {

View File

@@ -6,7 +6,7 @@ our %config;
sub list_atjobs
{
my @rv;
opendir(my $DIR, $config{'at_dir'});
opendir(my $DIR, $config{'at_dir'}) || return ();
while(my $f = readdir($DIR)) {
my $p = "$config{'at_dir'}/$f";
if ($f =~ /^a(\S+)\.(\d+)$/) {

View File

@@ -5,7 +5,7 @@ use POSIX;
sub list_atjobs
{
local @rv;
opendir(DIR, $config{'at_dir'});
opendir(DIR, $config{'at_dir'}) || return ();
while($f = readdir(DIR)) {
local $p = "$config{'at_dir'}/$f";
if ($f =~ /^(\d+)\.a(\S+)$/) {

View File

@@ -8,7 +8,7 @@ use POSIX;
sub list_atjobs
{
my @rv;
opendir(my $DIR, $config{'at_dir'});
opendir(my $DIR, $config{'at_dir'}) || return ();
while(my $f = readdir($DIR)) {
my $p = "$config{'at_dir'}/$f";
if ($f =~ /^(\d+)\.a$/) {