# Copyright (C) 2007, The Perl Foundation.
# $Id: /mirror/trunk/t/configure/testlib/Make_VERSION_File.pm 22303 2007-10-20T12:59:01.059508Z jkeenan  $

package Make_VERSION_File;

use strict;
use warnings;

our (@ISA, @EXPORT_OK);

@ISA       = qw( Exporter );
@EXPORT_OK = qw( make_VERSION_file );

sub make_VERSION_file {
    my $v = shift;

    my $vfile = 'VERSION';
    open my $FH, '>', $vfile
        or die "Unable to open $vfile for writing: $!";
    print $FH $v;
    close $FH or die "Unable to close $vfile after writing: $!";
}

1;

=head1 NAME

t/configure/testlib/Make_VERSION_File.pm - Subroutines used in testing C<Parrot::Build::Util::parrot_version()>

=head1 SYNOPSIS

Use only in test scripts.

=head1 AUTHOR

James E Keenan

=cut

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
