Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Make sure PERINCI_CMDLINE_PROGRAM_NAME is respected

  • Loading branch information...
commit e840c857e24541326136af348ce66972a08b59be 1 parent ea7e8ed
Steven Haryanto (on PC) authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  bin/peri-run
View
3  bin/peri-run
@@ -105,7 +105,8 @@ if (@ARGV && !@$oscs) {
unless $type eq 'function' || $type eq 'package';
}
$cmd->url($url);
- $cmd->program_name("$me $url") if !defined;
+ $cmd->program_name("$me $url")
+ unless defined($ENV{PERINCI_CMDLINE_PROGRAM_NAME});
if ($type eq 'package') {
my $res = $cmd->_pa->request(list => $url, {detail=>1});
die "Can't 'list' $url: $res->[0] - $res->[1]\n"
Please sign in to comment.
Something went wrong with that request. Please try again.