#! perl
use warnings;
use strict;

# $Id: 03bug.t 1126 2007-11-07 00:10:02Z abeltje $
use Test::More tests => 2;

BEGIN { $V::NO_EXIT = $V::NO_EXIT = 1 }

require_ok 'V';

my @modules = map {
    s{/}{::}g; s{\.pm$}{};
    $_
} grep /\.pm$/ && ! /^Config\.pm$/ => keys %INC;


my $versions = eval {
    join ", ", map { "$_: " . V::get_version( $_ ) } qw/ Cwd /;
};

is $@, "", "readonly bug";