summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-04-12 21:23:57 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-04-12 21:24:03 +0200
commit770a49097bbc540b3546f3dab31bdaa660a59231 (patch)
treef01266df942cffa2b2064ad6e39627893a834d79 /perl-install
parent9646e464b11c624c87ab939ad6aa14e9bd733f68 (diff)
downloaddrakx-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.pm2
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 {