Bug 21395: Make perlcritic happy

[koha.git] / misc / cronjobs / gather_print_notices.pl

diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl
index 51ef7cd..10cf630 100755 (executable)
--- a/misc/cronjobs/gather_print_notices.pl
+++ b/misc/cronjobs/gather_print_notices.pl
@@ -25,7 +25,6 @@ use Koha::Util::OpenDocument;
 use MIME::Lite;
 
 my (
-    $stylesheet,
     $help,
     $split,
     $html,
@@ -231,7 +230,7 @@ sub generate_csv {
 
     open my $OUTPUT, '>encoding(utf-8)', $filepath
         or die "Could not open $filepath: $!";
-    my ( @csv_lines, $headers );
+    my $headers;
     foreach my $message ( @$messages ) {
         my @lines = split /\n/, $message->{content};
         chomp for @lines;