Skip to content

Commit 669f83b

Browse files
committed
ncm-afsclt: ensure that all methods return a status
- Previously tending to return a status only in case of error...
1 parent 98550b5 commit 669f83b

File tree

1 file changed

+10
-0
lines changed

1 file changed

+10
-0
lines changed

ncm-afsclt/src/main/perl/afsclt.pm

+10
Original file line numberDiff line numberDiff line change
@@ -51,6 +51,8 @@ sub Configure_Cell {
5151
if ( $thiscell_fh->close() ) {
5252
$self->info("Updated thiscell to $afscell");
5353
}
54+
55+
return 0;
5456
}
5557

5658
sub Configure_TheseCells {
@@ -77,6 +79,8 @@ sub Configure_TheseCells {
7779
}
7880
}
7981
}
82+
83+
return 0;
8084
}
8185

8286
sub Configure_Cache {
@@ -174,6 +178,8 @@ sub Configure_Cache {
174178
$self->info("Changed running AFS cache $run_cache -> $new_cache (1K blocks)");
175179
}
176180
}
181+
182+
return 0;
177183
}
178184

179185
sub Configure_CellServDB {
@@ -284,6 +290,8 @@ sub update_afs_cells ( $$ ) {
284290
else {
285291
$self->info("Nothing to do for AFS cell information");
286292
}
293+
294+
return 0;
287295
}
288296

289297
sub Configure_Afsd_Args {
@@ -299,6 +307,8 @@ sub Configure_Afsd_Args {
299307
$self->info("Updated afsd.args");
300308
}
301309
}
310+
311+
return 0;
302312
}
303313

304314
1; #required for Perl modules

0 commit comments

Comments
 (0)