Add a $VERSION string to each module file

PDLPorters · Aug 26, 2014 · ba4481c · ba4481c
1 parent 2f35542
commit ba4481c
Show file tree

Hide file tree

Showing 10 changed files with 48 additions and 1 deletion.
diff --git a/lib/PDL/Graphics/Prima.pm b/lib/PDL/Graphics/Prima.pm
@@ -4,7 +4,7 @@ use warnings;
 ############################################################################
                        package PDL::Graphics::Prima;
 ############################################################################
-our $VERSION = 0.14;
+our $VERSION = 0.14;   # do not delete these spaces
 
 # Add automatic support for PDL terminal interactivity
 use PDL::Graphics::Prima::ReadLine;

diff --git a/lib/PDL/Graphics/Prima/Axis.pm b/lib/PDL/Graphics/Prima/Axis.pm
@@ -7,6 +7,8 @@ use PDL::Graphics::Prima::Limits;
 # Here's a package to handle the axes for me:
 package PDL::Graphics::Prima::Axis;
 
+our $VERSION = 0.14;   # update with update-version.pl
+
 use PDL::Graphics::Prima::Limits;
 use PDL::Graphics::Prima::Scaling;
 use Carp;

diff --git a/lib/PDL/Graphics/Prima/DataSet.pm b/lib/PDL/Graphics/Prima/DataSet.pm
@@ -82,6 +82,8 @@ package PDL::Graphics::Prima::DataSet;
 use Carp;
 use Scalar::Util;
 
+our $VERSION = 0.14;   # update with update-version.pl
+
 =item widget
 
 The widget associated with the dataset.

diff --git a/lib/PDL/Graphics/Prima/Limits.pm b/lib/PDL/Graphics/Prima/Limits.pm
@@ -1,6 +1,10 @@
 use strict;
 use warnings;
 
+package PDL::Graphics::Prima::Limits;
+
+our $VERSION = 0.14;   # update with update-version.pl
+
 # Defines the lm (limits) package in a way that CPAN won't index it
 package
 lm;

diff --git a/lib/PDL/Graphics/Prima/Palette.pm b/lib/PDL/Graphics/Prima/Palette.pm
@@ -74,6 +74,8 @@ All Palette classes know how to make new copies of themselves... ?
 package PDL::Graphics::Prima::Palette;
 use Carp;
 
+our $VERSION = 0.14;   # update with update-version.pl
+
 =head2 new
 
 Accepts key/value pairs. The only required key is the C<apply> key, which

diff --git a/lib/PDL/Graphics/Prima/PlotType.pm b/lib/PDL/Graphics/Prima/PlotType.pm
@@ -2283,6 +2283,8 @@ sub draw {
 
 package PDL::Graphics::Prima::PlotType;
 
+our $VERSION = 0.14;   # update with update-version.pl
+
 use Carp 'croak';
 
 =back

diff --git a/lib/PDL/Graphics/Prima/ReadLine.pm b/lib/PDL/Graphics/Prima/ReadLine.pm
@@ -3,6 +3,8 @@ use strict;
 use warnings;
 use Carp;
 
+our $VERSION = 0.14;   # update with update-version.pl
+
 my $is_setup = 0;
 
 sub is_happy_with {

diff --git a/lib/PDL/Graphics/Prima/Scaling.pm b/lib/PDL/Graphics/Prima/Scaling.pm
@@ -1,6 +1,10 @@
 use strict;
 use warnings;
 
+package PDL::Graphics::Prima::Scaling;
+
+our $VERSION = 0.14;   # update with update-version.pl
+
 package
 sc;
 use constant Linear => 'PDL::Graphics::Prima::Scaling::Linear';

diff --git a/lib/PDL/Graphics/Prima/Simple.pm b/lib/PDL/Graphics/Prima/Simple.pm
@@ -3,6 +3,8 @@ use strict;
 use warnings;
 use Carp 'croak';
 
+our $VERSION = 0.14;   # update with update-version.pl
+
 use PDL::Graphics::Prima;
 
 =head1 NAME

diff --git a/update-versions.pl b/update-versions.pl
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+# Propogates the version string in lib/PDL/Graphics/Prima.pm to the version
+# strings in the other modules.
+
+open my $in_fh, '<', 'lib/PDL/Graphics/Prima.pm';
+# Find the version string
+while(<$in_fh>) {
+	last if /^our \$VERSION = (\d\.\d\d.{4})/;
+}
+my $version = $1;
+close $in_fh;
+
+# OK, now run through all the module files
+for my $module_filename (glob 'lib/PDL/Graphics/Prima/*.pm') {
+	next if $module_filename =~ /Internals/;
+	print "Updating $module_filename\n";
+	open my $out_fh, '+<', $module_filename;
+	while (my $line = <$out_fh>) {
+		if ($line =~ /\$VERSION = /) {
+			print $out_fh "our \$VERSION = $1\n";
+			last;
+		}
+	}
+	close $out_fh;
+}