projects/perl-Satcon/bin/satcon-deploy-tree.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
New commits:
commit 20cf965ed78ee1bd7317ed98714acfb8be79edc3
Author: Jan Pazdziora <jpazdziora(a)redhat.com>
Date: Wed Apr 27 12:20:35 2011 +0200
Do not confuse me by saying Unsubstituted Tags when there are none.
diff --git a/projects/perl-Satcon/bin/satcon-deploy-tree.pl
b/projects/perl-Satcon/bin/satcon-deploy-tree.pl
index 60bb9da..c55a6de 100755
--- a/projects/perl-Satcon/bin/satcon-deploy-tree.pl
+++ b/projects/perl-Satcon/bin/satcon-deploy-tree.pl
@@ -103,7 +103,7 @@ sub process_file {
}
}
-warn "Unsubstituted Tags:\n";
+warn "Unsubstituted Tags:\n" if $engine->unsubstituted_tags;
foreach my $kw (sort $engine->unsubstituted_tags) {
warn " $kw\n";
}
commit dc56d2472e419a42d5187aeb1802141e3ac9dd50
Author: Jan Pazdziora <jpazdziora(a)redhat.com>
Date: Wed Apr 27 12:19:31 2011 +0200
Do not deploy .orig files.
diff --git a/projects/perl-Satcon/bin/satcon-deploy-tree.pl
b/projects/perl-Satcon/bin/satcon-deploy-tree.pl
index 70fa95a..60bb9da 100755
--- a/projects/perl-Satcon/bin/satcon-deploy-tree.pl
+++ b/projects/perl-Satcon/bin/satcon-deploy-tree.pl
@@ -58,7 +58,7 @@ sub process_file {
my ($engine, $sourcedir, $destdir) = @_;
my $full_path = $File::Find::name;
- if ($full_path =~ m(/CVS$)) {
+ if ($full_path =~ m(/CVS$|\.orig$)) {
$File::Find::prune = 1;
return;
}
Show replies by date