Added a paranoid test for evaluation order

[moe.git] / maint / release.pm

diff --git a/maint/release.pm b/maint/release.pm
index 1e826c052e0ca8c3440908e4a5494e99bab78eb5..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
 #!/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;
 
 package UCW::Release;
 use strict;


@@ -15,7 +15,7 @@ sub new($$) {
                "PACKAGE" => $basename,
                "rules" => [
                        # p=preprocess, s=subst, -=discard
                "PACKAGE" => $basename,
                "rules" => [
                        # p=preprocess, s=subst, -=discard

-                       '(^|/)(CVS|\.arch-ids|{arch}|tmp)/' => '-',
+                       '(^|/)(CVS|\.arch-ids|{arch}|\.git|tmp)/' => '-',

                        '\.(lsm|spec)$' => 'ps',
                        '(^|/)README$' => 's'
                        ],
                        '\.(lsm|spec)$' => 'ps',
                        '(^|/)README$' => 's'
                        ],


@@ -147,14 +147,14 @@ sub CopyFile($$$$) {
                                        $empty && next;
                                        $empty = 1;
                                } else { $empty = 0; }
                                        $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 {
                        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 $?;

        }
 }
 
        }
 }