Author: bernhard
Date: Sun May 6 11:41:27 2007
New Revision: 18440
Modified:
trunk/t/configure/testlib/Make_VERSION_File.pm
Log:
Hopefully nicer code layout.
Add coda for editors, make t/codingstd/perlcritic.t happier.
Modified: trunk/t/configure/testlib/Make_VERSION_File.pm
==============================================================================
--- trunk/t/configure/testlib/Make_VERSION_File.pm (original)
+++ trunk/t/configure/testlib/Make_VERSION_File.pm Sun May 6 11:41:27 2007
@@ -1,15 +1,21 @@
-# Copyright (C) 2001-2003, The Perl Foundation.
+# Copyright (C) 2007, The Perl Foundation.
# $Id$
+
package Make_VERSION_File;
+
use strict;
+use warnings;
+
use vars qw(@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
+ 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: $!";
@@ -23,9 +29,17 @@
=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:
