diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-25 05:49:21 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-01-02 14:59:46 +0100 |
| commit | 9e6b04e139bdba52466bb93db9e93b2b4933991b (patch) | |
| tree | b067d0ad6ed01a668c01b83b14fb30b136428f6d /perl-install | |
| parent | a12e27ea4a76b3f8b8465f18dda2705c936b1230 (diff) | |
| download | drakx-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.pm | 2 |
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"; }; |