From 3e81571bb26d8fb964b1f0939cef47ac284c1965 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 26 May 2005 05:48:00 +0000 Subject: - handle tag - hide some stuff when non verbose --- tools/install-xml-file-list | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tools/install-xml-file-list') diff --git a/tools/install-xml-file-list b/tools/install-xml-file-list index 1fac64ab7..19bebf616 100755 --- a/tools/install-xml-file-list +++ b/tools/install-xml-file-list @@ -70,6 +70,8 @@ sub valid_cond { every { if ($_ eq 'ARCH') { $ARCH =~ /$attr->{$_}/; + } elsif ($_ eq 'set') { + $ENV{$attr->{$_}}; } else { die ": unknown condition $_\n"; } @@ -332,7 +334,7 @@ sub apply_filter { if_($command eq 'gzip', '-9f'), if_($command eq 'strip', '2>/dev/null'), ); - warn "running $command @options @l\n"; + warn "running $command @options @l\n" if $verbose; system(join(' ', $command, @options, @l)); } } -- cgit v1.2.1