--- a/install	Sun Sep 01 12:59:50 2013 +0200
+++ b/install	Sun Sep 01 13:01:21 2013 +0200
@@ -20,7 +20,7 @@
 
 my @exclude = map { qr/$_/xms } qw(
   ^\.\.?$
-  ^\.hg$
+  ^\.hg
   ), basename $PROGRAM_NAME;
 
 ... if $opt_force;