aboutsummaryrefslogtreecommitdiff
path: root/lib/App/Acmeman/Source/File.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/App/Acmeman/Source/File.pm')
-rw-r--r--lib/App/Acmeman/Source/File.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/App/Acmeman/Source/File.pm b/lib/App/Acmeman/Source/File.pm
index 9414e86..c622d51 100644
--- a/lib/App/Acmeman/Source/File.pm
+++ b/lib/App/Acmeman/Source/File.pm
@@ -6,6 +6,7 @@ use Carp;
use File::Spec;
use parent 'App::Acmeman::Source';
use Getopt::Long qw(GetOptionsFromArray :config gnu_getopt no_ignore_case);
+use App::Acmeman::Log qw(:all);
sub new {
my $class = shift;
@@ -28,7 +29,7 @@ sub new {
sub scan {
my ($self) = @_;
- $self->debug(1, "initializing file list from $self->{pattern}");
+ debug(1, "initializing file list from $self->{pattern}");
my $err = 0;
if ($self->{host}) {
$self->define_domain($self->{host});
@@ -42,10 +43,10 @@ sub scan {
sub load {
my ($self, $file) = @_;
- $self->debug(1, "reading $file");
+ debug(1, "reading $file");
open(my $fh, '<', $file)
or do {
- $self->error("can't open $file: $!");
+ error("can't open $file: $!");
return 0;
};
chomp(my @lines = <$fh>);

Return to:

Send suggestions and report system problems to the System administrator.