From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Wed, 1 Aug 2012 17:45:05 +0000 (-0500)
Subject: remove warning if there are no defaults
X-Git-Tag: v0.001003~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2a5ea8a5ffd2a4438d8cc434cebc99233be147e;p=p5sagit%2FSub-Exporter-Progressive.git

remove warning if there are no defaults
---

diff --git a/Changes b/Changes
index 2447813..9d56925 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+  - remove warning if there are no defaults
 
 0.001002  2012-07-31 08:59:43 America/Chicago
   - Make Sub::Exporter an optional dep (which is kinda the whole point)
diff --git a/lib/Sub/Exporter/Progressive.pm b/lib/Sub/Exporter/Progressive.pm
index be1815b..7e41de2 100644
--- a/lib/Sub/Exporter/Progressive.pm
+++ b/lib/Sub/Exporter/Progressive.pm
@@ -77,7 +77,7 @@ sub sub_export_options {
             last OPTIONS
          }
       }
-      @defaults = @exports if $defaults[0] eq '-all';
+      @defaults = @exports if @defaults && $defaults[0] eq '-all';
    }
 
    return $TOO_COMPLICATED, {