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;