diff options
Diffstat (limited to 'lib/App/Acmeman/Source/File.pm')
-rw-r--r-- | lib/App/Acmeman/Source/File.pm | 7 |
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>); |