remove warning if there are no defaults

[p5sagit/Sub-Exporter-Progressive.git] / lib / Sub / Exporter / Progressive.pm

diff --git a/lib/Sub/Exporter/Progressive.pm b/lib/Sub/Exporter/Progressive.pm
index be1815b..7e41de2 100644 (file)
--- 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, {