diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-05 09:24:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-05 09:24:25 +0000 |
| commit | 432f25c16c5067056b767f51243b9ddada214b2c (patch) | |
| tree | 000224647e4d436406344f0e02bc8757e138b4c5 /perl-install/loopback.pm | |
| parent | 3a986222e04aaa08efd903894aa2679b9ccb2b16 (diff) | |
| download | drakx-432f25c16c5067056b767f51243b9ddada214b2c.tar drakx-432f25c16c5067056b767f51243b9ddada214b2c.tar.gz drakx-432f25c16c5067056b767f51243b9ddada214b2c.tar.bz2 drakx-432f25c16c5067056b767f51243b9ddada214b2c.tar.xz drakx-432f25c16c5067056b767f51243b9ddada214b2c.zip | |
perl now handle cleanly utf8 string in exceptions, no need to die \N("...")
Diffstat (limited to 'perl-install/loopback.pm')
| -rw-r--r-- | perl-install/loopback.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm index 45505bda4..f945adede 100644 --- a/perl-install/loopback.pm +++ b/perl-install/loopback.pm @@ -29,7 +29,7 @@ sub check_circular_mounts { my $check; $check = sub { my ($part, @seen) = @_; push @seen, $part->{mntpoint} || return; - @seen > 1 && $part->{mntpoint} eq $base_mntpoint and die \N("Circular mounts %s\n", join(", ", @seen)); + @seen > 1 && $part->{mntpoint} eq $base_mntpoint and die N("Circular mounts %s\n", join(", ", @seen)); if (my $part = fs::up_mount_point($part->{mntpoint}, $fstab)) { #- '/' carrier is a special case, it will be mounted first $check->($part, @seen) if !carryRootLoopback($part); |