package ExtUtils::Installed;
-use 5.006;
+use 5.00503;
use strict;
use Carp qw();
use ExtUtils::Packlist;
use File::Spec;
require VMS::Filespec if $^O eq 'VMS';
-our $VERSION = '0.05';
+use vars qw($VERSION);
+$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 {