From f4bc86bc94aeeeffb8a82b16b38b760590b80bdf Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 23 Mar 2012 19:50:35 +0000 Subject: perl_checker cleanups --- perl-install/fs/any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/fs/any.pm') diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm index 65ca02403..c84dc6a38 100644 --- a/perl-install/fs/any.pm +++ b/perl-install/fs/any.pm @@ -89,7 +89,7 @@ sub create_minimal_files() { } sub prepare_minimal_root { - my ($all_hds) = @_; + my ($_all_hds) = @_; fs::any::create_minimal_files(); @@ -98,7 +98,7 @@ sub prepare_minimal_root { eval { fs::mount::usbfs($::prefix) }; # copy all needed devices, for bootloader install and mkinitrd - cp_af("/dev", "$::prefix"); + cp_af('/dev', $::prefix); } sub getAvailableSpace { -- cgit v1.2.1