perl_checker style fixes

1 files 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, <<EOG);
 grub --device-map=/boot/grub/device.map --batch <<EOF