From 273309435f1deba09bd79d5b8110c7f539d59ee0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 25 Sep 2007 10:49:25 +0000 Subject: allow to unpack only some files (for release-notes.txt in mandriva-release-common) --- lib/Youri/Submit/Action/Unpack.pm | 5 +++-- 1 file 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}"); -- cgit v1.2.1