From 7dfcaf2ab0bd6438e5c77ea46cb67691770a4afc Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sun, 18 Jul 2010 15:14:21 +0200
Subject: [PATCH] Maint: release.pm updated from current pciutils

---
 maint/release.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/maint/release.pm b/maint/release.pm
index 44cecb4..b0fa46e 100644
--- a/maint/release.pm
+++ b/maint/release.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # A simple system for making software releases
-# (c) 2003 Martin Mares <mj@ucw.cz>
+# (c) 2003--2006 Martin Mares <mj@ucw.cz>
 
 package UCW::Release;
 use strict;
@@ -15,7 +15,7 @@ sub new($$) {
 		"PACKAGE" => $basename,
 		"rules" => [
 			# p=preprocess, s=subst, -=discard
-			'(^|/)(CVS|\.arch-ids|{arch}|tmp)/' => '-',
+			'(^|/)(CVS|\.arch-ids|{arch}|\.git|tmp)/' => '-',
 			'\.(lsm|spec)$' => 'ps',
 			'(^|/)README$' => 's'
 			],
@@ -27,7 +27,7 @@ sub new($$) {
 		"LSMDATE" => `date '+%y%m%d' | tr -d '\n'`,
 		"distfiles" => [
 			],
-		"archivedir" => $ENV{"HOME"} . "/tmp/archives/$basename",
+		"archivedir" => "/home/mj/tmp/archives/$basename",
 		"uploads" => [
 			],
 		# Options
@@ -147,14 +147,14 @@ sub CopyFile($$$$) {
 					$empty && next;
 					$empty = 1;
 				} else { $empty = 0; }
-			}		
+			}
 			print O;
 		}
 		close O;
 		close I;
 		! -x $f or chmod(0755, "$dir/$f") or die "chmod($dir/$f): $!";
 	} else {
-		`cp -a $f $dir/$f`; die if $?;
+		`cp -a "$f" "$dir/$f"`; die if $?;
 	}
 }
 
-- 
2.39.2