use qr// for regex variable

and don't wrap it within `m//` when using it...

Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>

diff --git a/Proxmox/Sys/Udev.pm b/Proxmox/Sys/Udev.pm
index 3213fd4371703918ce6706176f2a910863362ffe..89ada32cf1e242254c1d22e8c48bf7aefe7ae864 100644 (file)
--- a/Proxmox/Sys/Udev.pm
+++ b/Proxmox/Sys/Udev.pm
@@ -3,7 +3,7 @@ package Proxmox::Sys::Udev;
 use strict;
 use warnings;
 
-my $UDEV_REGEX = '^E: ([^=]*)=(.*)$';
+my $UDEV_REGEX = qr/^E: ([^=]+)=(.*)$/;
 
 sub query_udevadm_info {
     my ($sys_path) = @_;
@@ -19,7 +19,7 @@ sub parse_udevadm_info {
 
     my $details = {};
     for my $line (split('\n', $udev_raw)) {
-       if ($line =~ m/$UDEV_REGEX/) {
+       if ($line =~ $UDEV_REGEX) {
            $details->{$1} = $2;
        }
     }