mirror of
https://github.com/webmin/webmin.git
synced 2026-08-07 16:30:38 +01:00
Exit fast if at directory doesn't exist https://sourceforge.net/p/webadmin/bugs/5479/
This commit is contained in:
@@ -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+)$/) {
|
||||
|
||||
@@ -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$/) {
|
||||
|
||||
@@ -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+)$/) {
|
||||
|
||||
@@ -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+)$/) {
|
||||
|
||||
@@ -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+)$/) {
|
||||
|
||||
@@ -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$/) {
|
||||
|
||||
Reference in New Issue
Block a user