Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

#!/usr/bin/perl -w
BEGIN {
unshift @INC, 't/lib';
}
chdir 't';
use strict;
use Test::More tests => 1;
use TieOut;
perl_lib();
mkdir('Odd-Version', 0777);
END { chdir File::Spec->updir; rmtree 'Odd-Version' }
chdir 'Odd-Version';
open(MPL, ">Version") || die $!;
print MPL "\$VERSION = 0\n";
close MPL;
END { unlink 'Version' }
my $stdout = tie *STDOUT, 'TieOut' or die;
my $mm = WriteMakefile(
NAME => 'Version',
VERSION_FROM => 'Version'
);
is( $mm->{VERSION}, 0, 'VERSION_FROM when $VERSION = 0' );