Fix "Use of uninitialized value" warning

in Dpkg::Copyright::Scanner's print_copyright sub.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index 2d08d745..55256b1d 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -60,7 +60,7 @@ sub print_copyright ( %args ) {
     }
 
     # regroup %files hash: all leaves have same id -> wild card
-    if ($args{long} != 1) {
+    if (!exists $args{long} || $args{long} != 1) {
         __squash_tree_of_copyright_ids($split_files, $copyrights_by_id);
     }