From: Rafał Długołęcki <kontakt@dlugolecki.net.pl>
Date: Fri, 1 Mar 2013 15:53:43 +0000 (+0100)
Subject: Git-style only one argument for script.
X-Git-Tag: 0.1~5
X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=36a27ea18b04934fcbb833cbcd2632af70486c97;p=prj-utils.git

Git-style only one argument for script.
---

diff --git a/prj-create-repo.pl b/prj-create-repo.pl
index bf083c1..fc8e623 100755
--- a/prj-create-repo.pl
+++ b/prj-create-repo.pl
@@ -5,10 +5,11 @@ use warnings;
 use Config::General;
 use Net::SSH::Perl;
 
-# prj-create-repo.pl "login@host" "path/project.git"
+# prj-create-repo.pl "login@host:path/project.git"
 
 my ($login, $host) = split(/@/, shift);
-my $path = shift;
+my $path;
+($host, $path) = split(/:/, $host);
 
 print "Logging to $host...\n";
 my $ssh = Net::SSH::Perl->new($host, debug => 0);