From 0272d11c96d62d99483ee7804feb01481a89663e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 26 Jun 2009 15:29:24 +0000 Subject: perl_checker style fixes --- draklive | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/draklive b/draklive index f92eba6..52c8043 100755 --- a/draklive +++ b/draklive @@ -486,13 +486,13 @@ sub remove_unneeded_bootlogo_locales { my ($bootlogo, @locales) = @_; - $bootlogo = Cwd::realpath ($bootlogo); + $bootlogo = Cwd::realpath($bootlogo); -f $bootlogo or return; my $cwd = Cwd::getcwd(); - my $tempdir = File::Temp::tempdir ("mdvgfxbootXXXX", CLEANUP => 1); + my $tempdir = File::Temp::tempdir("mdvgfxbootXXXX", CLEANUP => 1); chdir $tempdir; - !system ("cpio -id < $bootlogo") or return; + !system("cpio -id < $bootlogo") or return; # Make sure we include the en locale push @locales, 'en'; @@ -501,7 +501,7 @@ sub remove_unneeded_bootlogo_locales { if (!grep { $file =~ /^$_\.tr$/ } @locales) { unlink $file; } else { - my ($locale_name) = ($file =~ /(.*)\.tr$/); + my ($locale_name) = $file =~ /(.*)\.tr$/; push @kept_locales, $locale_name; } } @@ -707,7 +707,7 @@ sub create_disk_master { directory_usage($live->get_builddir . $live->{prefix}{build}{boot}) + directory_usage($live->get_builddir . $live->{prefix}{build}{files}) + 70000000) : - (directory_usage($live->get_system_root) + 200000000); + directory_usage($live->get_system_root) + 200000000; my $loop = allocate_master($dest, $disk_size, $live->{media}->get_media_setting('fs'), $live->{media}->get_media_setting('inode_size')); local $opts->{device} = $loop; @@ -783,7 +783,7 @@ root (hd0,0) setup (hd0) quit EOF - close ($grub) or die "unable to run grub\n"; + close($grub) or die "unable to run grub\n"; output($live->{mnt} . $grub_script, <