handle undefined values

[p5sagit/App-FatPacker.git] / lib / App / FatPacker.pm

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index ccd0176..e7cdd91 100644 (file)
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -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) {