separator();
}
-sub print_fsck_errors {
- my ($entity, $errors) = @_;
- return unless keys %$errors;
-
- separator();
- foreach my $issue_name ( keys %$errors ) {
- title( "$entity $issue_name ");
- foreach my $error ( @{$errors->{$issue_name}} ) {
- msg("* $error");
- }
- }
-}
-
## ----------------------------------------------------------------------------
+# helpers
sub check_paths {
my ($cil) = @_;
return \@new_issues;
}
+sub print_fsck_errors {
+ my ($entity, $errors) = @_;
+ return unless keys %$errors;
+
+ separator();
+ foreach my $issue_name ( keys %$errors ) {
+ title( "$entity $issue_name ");
+ foreach my $error ( @{$errors->{$issue_name}} ) {
+ msg("* $error");
+ }
+ }
+}
+
## ----------------------------------------------------------------------------
# input/output