From 1122f7ede6da02e5cb80b4d7f42f05ba0c80e648 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Thu, 9 Apr 2015 11:03:04 -0700
Subject: [PATCH] Use `name` field for -info flag

---
 modules/compiler_vm/languages/_default.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/modules/compiler_vm/languages/_default.pm b/modules/compiler_vm/languages/_default.pm
index 78261045..8ad63be6 100755
--- a/modules/compiler_vm/languages/_default.pm
+++ b/modules/compiler_vm/languages/_default.pm
@@ -390,7 +390,8 @@ sub process_standard_options {
     }
     $cmdline =~ s/\$sourcefile/$self->{sourcefile}/g;
     $cmdline =~ s/\$execfile/$self->{execfile}/g;
-    print "$self->{nick}: $self->{lang} cmdline: $cmdline\n";
+    my $name = exists $self->{name} ? $self->{name} : $self->{lang};
+    print "$self->{nick}: $name cmdline: $cmdline\n";
     exit;
   }