Maint: release.pm updated from current pciutils

diff --git a/maint/release.pm b/maint/release.pm
index 44cecb461bff060b02471e22d1fad072bb1d041f..b0fa46ee1ec5676f8a46fd79bd476b98de930838 100644 (file)
--- 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 $?;
        }
 }