From 16dc59a21f17c51517e22d92537adef87aec1237 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 31 May 2024 21:13:21 +0100
Subject: [PATCH] Re-enable perl in RHEL, needed for virt-win-reg.

Updates: commit 4bc66245565b4619740794dc104d0979748c7974
Updates: commit 4098de8c52789f30ac9557e934b24fb1c57020af
(cherry picked from commit 608cf467fa82274230770a5eec8e3c282199c457)
---
 libguestfs.spec | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/libguestfs.spec b/libguestfs.spec
index dc061d4..5153fc6 100644
--- a/libguestfs.spec
+++ b/libguestfs.spec
@@ -42,7 +42,7 @@ Summary:       Access and modify virtual machine disk images
 Name:          libguestfs
 Epoch:         1
 Version:       1.52.1
-Release:       2%{?dist}
+Release:       3%{?dist}
 License:       LGPL-2.1-or-later
 
 # Build only for architectures that have a kernel
@@ -154,6 +154,7 @@ BuildRequires: ocaml-findlib-devel
 BuildRequires: ocaml-ounit-devel
 BuildRequires: lua
 BuildRequires: lua-devel
+%endif
 BuildRequires: perl-devel
 BuildRequires: perl-generators
 BuildRequires: perl-macros
@@ -163,7 +164,6 @@ BuildRequires: perl(Test::Pod::Coverage) >= 1.00
 BuildRequires: perl(Module::Build)
 BuildRequires: perl(ExtUtils::CBuilder)
 BuildRequires: perl(Locale::TextDomain)
-%endif
 BuildRequires: python3-devel
 BuildRequires: python3-libvirt
 %if !0%{?rhel}
@@ -391,8 +391,8 @@ libguestfs-gobject-devel  GObject bindings and GObject Introspection
               lua-guestfs  Lua bindings
 %endif
    ocaml-libguestfs-devel  OCaml bindings
-%if !0%{?rhel}
          perl-Sys-Guestfs  Perl bindings
+%if !0%{?rhel}
            php-libguestfs  PHP bindings
 %endif
        python3-libguestfs  Python 3 bindings
@@ -572,7 +572,6 @@ ocaml-%{name}-devel contains development libraries
 required to use the OCaml bindings for %{name}.
 
 
-%if !0%{?rhel}
 %package -n perl-Sys-Guestfs
 Summary:       Perl bindings for %{name} (Sys::Guestfs)
 Requires:      %{name}%{?_isa} = %{epoch}:%{version}-%{release}
@@ -580,7 +579,6 @@ Requires:      %{name}%{?_isa} = %{epoch}:%{version}-%{release}
 
 %description -n perl-Sys-Guestfs
 perl-Sys-Guestfs contains Perl bindings for %{name} (Sys::Guestfs).
-%endif
 
 
 %package -n python3-%{name}
@@ -762,7 +760,6 @@ fi
 %if 0%{?rhel}
   --disable-gobject \
   --disable-lua \
-  --disable-perl \
   --disable-php \
   --disable-ruby \
 %endif
@@ -1027,13 +1024,11 @@ rm ocaml/html/.gitignore
 %{_mandir}/man3/guestfs-ocaml.3*
 
 
-%if !0%{?rhel}
 %files -n perl-Sys-Guestfs
 %doc perl/examples/*.pl
 %{perl_vendorarch}/*
 %{_mandir}/man3/Sys::Guestfs.3pm*
 %{_mandir}/man3/guestfs-perl.3*
-%endif
 
 
 %files -n python3-%{name}
@@ -1110,8 +1105,9 @@ rm ocaml/html/.gitignore
 
 
 %changelog
-* Fri May 31 2024 Richard W.M. Jones <rjones@redhat.com> - 1:1.52.1-2
+* Fri May 31 2024 Richard W.M. Jones <rjones@redhat.com> - 1:1.52.1-3
 - Rebuild for OCaml 5.2
+- Re-enable perl in RHEL, needed for virt-win-reg.
 
 * Mon May 13 2024 Richard W.M. Jones <rjones@redhat.com> - 1:1.52.1-1
 - New stable branch version 1.52.1