handle undefined values
Sawyer X [Thu, 23 Feb 2012 12:33:45 +0000 (14:33 +0200)]
lib/App/FatPacker.pm

index ccd0176..e7cdd91 100644 (file)
@@ -98,8 +98,8 @@ sub script_command_trace {
 
 sub trace {
   my ($self, %opts) = @_;
-  my $use = $opts{'use'};
-  my $args = $opts{'args'};
+  my $use = defined $opts{'use'} ? $opts{'use'} : [];
+  my $args = defined $opts{'args'} ? $opts{'args'} : [];
   my $output = $opts{'output'};
 
   if(@$use) {