summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-25 05:49:21 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-01-02 14:59:46 +0100
commit9e6b04e139bdba52466bb93db9e93b2b4933991b (patch)
treeb067d0ad6ed01a668c01b83b14fb30b136428f6d /perl-install
parenta12e27ea4a76b3f8b8465f18dda2705c936b1230 (diff)
downloaddrakx-9e6b04e139bdba52466bb93db9e93b2b4933991b.tar
drakx-9e6b04e139bdba52466bb93db9e93b2b4933991b.tar.gz
drakx-9e6b04e139bdba52466bb93db9e93b2b4933991b.tar.bz2
drakx-9e6b04e139bdba52466bb93db9e93b2b4933991b.tar.xz
drakx-9e6b04e139bdba52466bb93db9e93b2b4933991b.zip
perl_checker cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm2
1 files changed, 1 insertions, 1 deletions
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";
};