t/configure/testlib/Make_VERSION_File.pm

   1 # Copyright (C) 2007, Parrot Foundation.
   2 # $Id$
   3
   4 package Make_VERSION_File;
   5
   6 use strict;
   7 use warnings;
   8
   9 our (@ISA, @EXPORT_OK);
  10
  11 @ISA       = qw( Exporter );
  12 @EXPORT_OK = qw( make_VERSION_file );
  13
  14 sub make_VERSION_file {
  15     my $v = shift;
  16
  17     my $vfile = 'VERSION';
  18     open my $FH, '>', $vfile
  19         or die "Unable to open $vfile for writing: $!";
  20     print $FH $v;
  21     close $FH or die "Unable to close $vfile after writing: $!";
  22 }
  23
  24 1;
  25
  26 =head1 NAME
  27
  28 t/configure/testlib/Make_VERSION_File.pm - Subroutines used in testing C<Parrot::Build::Util::parrot_version()>
  29
  30 =head1 DESCRIPTION
  31
  32 Use only in test scripts.
  33
  34 =head1 AUTHOR
  35
  36 James E Keenan
  37
  38 =cut
  39
  40 # Local Variables:
  41 #   mode: cperl
  42 #   cperl-indent-level: 4
  43 #   fill-column: 100
  44 # End:
  45 # vim: expandtab shiftwidth=4: