equal
deleted
inserted
replaced
105 ) or pod2usage(); |
105 ) or pod2usage(); |
106 |
106 |
107 # override the HGUSER to the 'remote user' from our SSH connect |
107 # override the HGUSER to the 'remote user' from our SSH connect |
108 $ENV{HGUSER} = env_user() // $ENV{USER} // $ENV{LOGNAME} // getpwuid($>); |
108 $ENV{HGUSER} = env_user() // $ENV{USER} // $ENV{LOGNAME} // getpwuid($>); |
109 |
109 |
110 die identity(); |
|
111 |
|
112 if ($opt_message =~ /^@(.*)/) { |
110 if ($opt_message =~ /^@(.*)/) { |
113 @ARGV = $1; |
111 @ARGV = $1; |
114 $opt_message = join "", <>; |
112 $opt_message = join "", <>; |
115 } |
113 } |
116 elsif ($opt_message eq "-") { |
114 elsif ($opt_message eq "-") { |