return ('none',undef);
}
-our $access_pushing = 0;
+our $access_forpush = 0;
sub pushing () {
- $access_pushing = 1;
+ $access_forpush = 1;
+}
+
+sub access_forpush () {
+ return $access_forpush;
}
sub access_distros () {
unshift @l, $instead_distro;
@l = grep { defined } @l;
- if ($access_pushing) {
+ if (access_forpush()) {
@l = map { ("$_/push", $_) } @l;
}
@l;
my ($optional) = @_;
my $url = access_cfg('git-url','RETURN-UNDEF');
my $suffix;
- if (!defined $url) {
+ if (!length $url) {
my $proto = access_cfg('git-proto', 'RETURN-UNDEF');
return undef unless defined $proto;
$url =