From 9e6b04e139bdba52466bb93db9e93b2b4933991b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 25 May 2015 05:49:21 -0400
Subject: perl_checker cleanup

---
 perl-install/diskdrake/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index f44c896d0..f13659ac1 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -938,7 +938,7 @@ sub dmcrypt_open {
     my ($in, $_hd, $part, $all_hds) = @_;
     $part->{dm_name} ||= do {
 	my $s = $part->{device};
-	$s =~ s/[^\w]/_/g;
+	$s =~ s/\W/_/g;
 	"crypt_$s";
     };
 
-- 
cgit v1.2.1