diff --git a/lib/BioX/Workflow/Command/run/Utils/Files/TrackChanges.pm b/lib/BioX/Workflow/Command/run/Utils/Files/TrackChanges.pm index 48dd596..9adcfc6 100644 --- a/lib/BioX/Workflow/Command/run/Utils/Files/TrackChanges.pm +++ b/lib/BioX/Workflow/Command/run/Utils/Files/TrackChanges.pm @@ -50,10 +50,12 @@ sub walk_FILES { $self->pre_FILES( $attr, 'INPUT' ); $self->add_graph('INPUT'); $self->clear_files; + $self->files([]); $self->pre_FILES( $attr, 'OUTPUT' ); $self->add_graph('OUTPUT'); $self->clear_files; + $self->files([]); } sub pre_FILES { diff --git a/lib/BioX/Workflow/Command/stats.pm b/lib/BioX/Workflow/Command/stats.pm index 57c36d5..5b4ac97 100644 --- a/lib/BioX/Workflow/Command/stats.pm +++ b/lib/BioX/Workflow/Command/stats.pm @@ -150,13 +150,13 @@ sub gen_row { my $rel = ''; $rel = $file; - $rel = path($file)->absolute if $self->use_full; + $rel = path($file)->absolute if $self->use_abs; - my $basename = basename($file) unless $self->use_full; + my $basename = basename($file) unless $self->use_abs; #Add the filename - push( @trow, $rel ) if $self->use_full; - push( @trow, $basename ) if !$self->use_full; + push( @trow, $rel ) if $self->use_abs; + push( @trow, $basename ) if !$self->use_abs; #Does the file exist? if ( -e $file ) {