Fix '-all' option for the default group

[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 e77ca34..d945936 100644 (file)
--- a/lib/Sub/Exporter/Progressive.pm
+++ b/lib/Sub/Exporter/Progressive.pm
@@ -5,6 +5,8 @@ package Sub::Exporter::Progressive;
 use strict;
 use warnings;
 
+# VERSION
+
 use List::Util 'first';
 
 sub import {
@@ -74,12 +76,12 @@ sub sub_export_options {
                if first { $_ ne 'default' } keys %{$options{groups}};
 
             @defaults = @{$options{groups}{default} || [] };
-            @defaults = @exports if $defaults[0] eq '-all';
          } else {
             $TOO_COMPLICATED = 1;
             last OPTIONS
          }
       }
+      @defaults = @exports if $defaults[0] eq '-all';
    }
 
    return $TOO_COMPLICATED, {