fix perl warning

faiproject · May 28, 2022 · 5723195 · 5723195
1 parent 49ae9b8
commit 5723195
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/setup-storage/Commands.pm b/lib/setup-storage/Commands.pm
@@ -356,7 +356,7 @@ sub build_btrfs_commands {
     foreach (@devs) {
       my $tmp = $_;
       # special handling for nvme devices
-      unless ($tmp =~ s/(nvme.+)p\d+/\1/) {
+      unless ($tmp =~ s/(nvme.+)p\d+/$1/) {
         $tmp =~ s/\d//;
       }
       $pre_req = "${pre_req}pt_complete_${tmp}," unless ($pre_req =~ m/pt_complete_$tmp/);