diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-04-12 21:23:57 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-04-12 21:24:03 +0200 |
| commit | 770a49097bbc540b3546f3dab31bdaa660a59231 (patch) | |
| tree | f01266df942cffa2b2064ad6e39627893a834d79 /perl-install | |
| parent | 9646e464b11c624c87ab939ad6aa14e9bd733f68 (diff) | |
| download | drakx-770a49097bbc540b3546f3dab31bdaa660a59231.tar drakx-770a49097bbc540b3546f3dab31bdaa660a59231.tar.gz drakx-770a49097bbc540b3546f3dab31bdaa660a59231.tar.bz2 drakx-770a49097bbc540b3546f3dab31bdaa660a59231.tar.xz drakx-770a49097bbc540b3546f3dab31bdaa660a59231.zip | |
fix latest commit
unparsable perl cannot have been tested...
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/devices.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm index ce3a159a3..aa65204ed 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -170,7 +170,7 @@ sub part_prefix { sub prefix_for_dev { my ($dev) = @_; - $dev . ($dev =~ /\d$/ 'p' : ''); + $dev . ($dev =~ /\d$/ ? 'p' : ''); } sub should_prefer_UUID { |