Permalink
Browse files

Make sure PERINCI_CMDLINE_PROGRAM_NAME is respected

  • Loading branch information...
1 parent ea7e8ed commit e840c857e24541326136af348ce66972a08b59be Steven Haryanto (on PC) committed Mar 15, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 bin/peri-run
View
@@ -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"

0 comments on commit e840c85

Please sign in to comment.