my ($repo_base, $checked_out_tree) = getrepo();
- my $is_github_repo = $repo_base =~ m/(git@|git:\/\/)github.com/;
+ my $is_github_repo = $repo_base =~ m/(git@|git:\/\/|https:\/\/)github.com/;
parsePackages;
}
push(@args, @_);
- print "args: @args\n";
for $line (@packages) {
}
# Work out the arguments we should give to the SCM
- if ($command =~ /^(?:w|wh|wha|what|whats|whatsn|whatsne|whatsnew)$/) {
+ if ($command =~ /^(?:w|wh|wha|what|whats|whatsn|whatsne|whatsnew|status)$/) {
@scm_args = (($scm eq "darcs" and "whatsnew")
or ($scm eq "git" and "status"));