require VMS::Filespec if $^O eq 'VMS';
use vars qw($VERSION);
-$VERSION = '0.05';
+$VERSION = '0.06';
my $DOSISH = ($^O =~ /^(MSWin\d\d|os2|dos|mint)$/);
sub modules {
my ($self) = @_;
- return sort keys %$self;
+
+ # Bug/feature of sort in scalar context requires this.
+ return wantarray ? sort keys %$self : keys %$self;
}
sub files {