From e102bcf3cfcbcb2b47ad88334f03d5abf636f1e5 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Sun, 13 Sep 2015 13:45:32 +0100
Subject: [PATCH] perl: Set program name to the true name instead of 'perl'.

Currently any Perl program has the handle program name field set
to 'perl'.  Set it to the true name (derived from $0).
---
 generator/perl.ml | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/generator/perl.ml b/generator/perl.ml
index 2808f81e1..dcd180f6f 100644
--- a/generator/perl.ml
+++ b/generator/perl.ml
@@ -753,6 +753,12 @@ sub new {
   my $g = Sys::Guestfs::_create ($flags);
   my $self = { _g => $g, _flags => $flags };
   bless $self, $class;
+
+  # If we don't do this, the program name is always set to 'perl'.
+  my $program = $0;
+  $program =~ s{.*/}{};
+  $self->set_program ($program);
+
   return $self;
 }