SPECS: perl-Params-Check.spec, adapter.awk - kill default %attr-s

[glen]

Author: glen                         Date: Wed Jul 26 12:51:56 2006 GMT
Module: SPECS                         Tag: HEAD
---- Log message:
- kill default %attr-s

---- Files affected:
SPECS:
   perl-Params-Check.spec (1.2 -> 1.3) , adapter.awk (1.315 -> 1.316) 

---- Diffs:

================================================================
Index: SPECS/perl-Params-Check.spec
diff -u SPECS/perl-Params-Check.spec:1.2 SPECS/perl-Params-Check.spec:1.3
--- SPECS/perl-Params-Check.spec:1.2	Wed Jul 26 14:49:45 2006
+++ SPECS/perl-Params-Check.spec	Wed Jul 26 14:51:51 2006
@@ -62,7 +62,7 @@
 %files
 %defattr(644,root,root,755)
 %doc README CHANGES
-%dir %attr(755,root,root) %{perl_vendorlib}/Params
+%dir %{perl_vendorlib}/Params
 %{perl_vendorlib}/Params/Check.pm
 %{_mandir}/man3/*
 
@@ -72,6 +72,9 @@
 All persons listed below can be reached at <cvs_login>@pld-linux.org
 
 $Log$
+Revision 1.3  2006/07/26 12:51:51  glen
+- kill default %attr-s
+
 Revision 1.2  2006/07/26 12:49:45  glen
 - adapter
 

================================================================
Index: SPECS/adapter.awk
diff -u SPECS/adapter.awk:1.315 SPECS/adapter.awk:1.316
--- SPECS/adapter.awk:1.315	Tue Jun 27 12:19:37 2006
+++ SPECS/adapter.awk	Wed Jul 26 14:51:51 2006
@@ -1367,6 +1367,12 @@
 		gsub("%attr\\(0", "%attr(")
 	}
 
+    # kill default attrs
+    gsub(/%dir %attr\(755,root,root\)/, "%dir");
+    if (!/%dir/) {
+        gsub(/%attr\(644,root,root\)/, "");
+    }
+
 	# sort %verify attrs
 	if (match($0, /%verify\(not([^)]+)\)/)) {
 		t = substr($0, RSTART, RLENGTH)
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/SPECS/perl-Params-Check.spec?r1=1.2&r2=1.3&f=u
    http://cvs.pld-linux.org/SPECS/adapter.awk?r1=1.315&r2=1.316&f=u