[libmoosex-has-sugar-perl] 04/120: Add maint dir git-subtree syncer

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.05070422-source
in repository libmoosex-has-sugar-perl.

commit 20e353279da8c60a73f45e7f2e4d546916e6ece3
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Tue Sep 10 13:01:37 2013 +1200

    Add maint dir git-subtree syncer
---
 sync_tree.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/sync_tree.pl b/sync_tree.pl
new file mode 100644
index 0000000..92b0678
--- /dev/null
+++ b/sync_tree.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl 
+use strict;
+use warnings;
+use utf8;
+
+use Path::FindDev qw( find_dev );
+my $root = find_dev('./');
+
+chdir "$root";
+
+if ( not -d -e $root->child("maint") ) {
+    system(
+        'git', 'subtree', 'add', 
+            '--prefix=maint', 
+            'https://github.com/kentfredric/travis-scripts.git', 'master'
+    );
+} else {
+    system(
+        'git', 'subtree', 'pull', 
+            '--prefix=maint', 
+            'https://github.com/kentfredric/travis-scripts.git', 'master'
+    );
+}
+

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git