use qq instead of quoting (perl_checker)

1 files changed, 1 insertions, 1 deletions

diff --git a/draklive b/draklive
index 7d04ad0..c2ff4d4 100755
--- a/draklive
+++ b/draklive
@@ -505,7 +505,7 @@ sub remove_unneeded_bootlogo_locales {
 	    push @kept_locales, $locale_name;
         }
     }
-    system("echo init 16x16.fnt *.tr |sed \"s/ /\\n/g\" |cpio -o >$bootlogo");
+    system(qq(echo init 16x16.fnt *.tr |sed "s/ /\\n/g" |cpio -o >$bootlogo));
     chdir $cwd;
 
     print "gfxboot locales: " . join(" ", @kept_locales) . "\n";