diff options
-rw-r--r-- | lib/Youri/Submit/Action/Unpack.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Youri/Submit/Action/Unpack.pm b/lib/Youri/Submit/Action/Unpack.pm index 9301c89..b6f06bc 100644 --- a/lib/Youri/Submit/Action/Unpack.pm +++ b/lib/Youri/Submit/Action/Unpack.pm @@ -26,7 +26,7 @@ sub _init { croak "undefined source sub directory" unless $options{source_subdir}; croak "undefined destination directory" unless $options{dest_directory}; - foreach my $var ('name', 'dest_directory', 'source_subdir', 'unpack_inside_distribution_root') { + foreach my $var ('name', 'dest_directory', 'source_subdir', 'grep_files', 'unpack_inside_distribution_root') { $self->{"_$var"} = $options{$var}; } @@ -55,7 +55,8 @@ sub run { } foreach my $dest (@dests) { - my $cmd = "cd $tempdir/$self->{_source_subdir}; find | cpio -pdu $dest"; + my $find_grep = $self->{_grep_files} ? 'find | grep "$self->{_grep_files}"' : 'find'; + my $cmd = "cd $tempdir/$self->{_source_subdir}; $find_grep | cpio -pdu $dest"; print "Submit::Action::Unpack: doing $cmd\n" if $self->{_verbose}; if (!$self->{_test}) { my @l = glob("$tempdir/$self->{_source_subdir}"); |