From: Sawyer X <xsawyerx@cpan.org>
Date: Thu, 23 Feb 2012 12:33:45 +0000 (+0200)
Subject: handle undefined values
X-Git-Tag: v0.9.7~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1374d23f70cf8beee4a11820dd0e0da0d46d3e4;p=p5sagit%2FApp-FatPacker.git

handle undefined values
---

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