# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1439395519 -7200
# Node ID cf013e058c93a0100556192dbf7d86ba78485e86
# Parent  4296d2d75944fbde736d9dfb014bb89ee884b244
Fix idendity line

diff -r 4296d2d75944 -r cf013e058c93 log.pl
--- a/log.pl	Wed Aug 12 17:51:37 2015 +0200
+++ b/log.pl	Wed Aug 12 18:05:19 2015 +0200
@@ -107,6 +107,8 @@
     # override the HGUSER  to the 'remote user' from our SSH connect
     $ENV{HGUSER} = env_user() // $ENV{USER} // $ENV{LOGNAME} // getpwuid($>);
 
+    die identity();
+
     if ($opt_message =~ /^@(.*)/) {
         @ARGV = $1;
         $opt_message = join "", <>;
@@ -313,7 +315,7 @@
 sub identity() {
     my $user = `who am i`;
     chomp $user;
-    $user .= " [" . env_user() // '-' . "]";
+    $user .= " [" . (env_user() // '-') . "]";
     return $user;
 }