From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 15 Jul 2006 18:57:39 +0000 (+0000)
Subject: Adding Module::Build::Version missed in upgrade.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9acf5c354e13d8fc6d84c97a85840d7d803d8c62;p=p5sagit%2Fp5-mst-13.2.git

Adding Module::Build::Version missed in upgrade.

p4raw-id: //depot/perl@28581
---

diff --git a/MANIFEST b/MANIFEST
index 1e6a115..7875748 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2039,6 +2039,7 @@ lib/Module/Build/t/signature.t	Module::Build
 lib/Module/Build/t/tilde.t	Module::Build
 lib/Module/Build/t/versions.t	Module::Build
 lib/Module/Build/t/xs.t		Module::Build
+lib/Module/Build/Version.pm	Module::Build
 lib/Module/Build/YAML.pm	Module::Build
 lib/Module/CoreList/bin/corelist	Module::CoreList
 lib/Module/CoreList.pm			Module::CoreList
diff --git a/lib/Module/Build/Version.pm b/lib/Module/Build/Version.pm
new file mode 100644
index 0000000..f814746
--- /dev/null
+++ b/lib/Module/Build/Version.pm
@@ -0,0 +1,26 @@
+package Module::Build::Version;
+use base qw/version/;
+
+use overload (
+    '""' => \&stringify,
+);
+
+sub new {
+    my ($class, $value) = @_;
+    my $self = $class->SUPER::new($value);
+    $self->original($value);
+    return $self;
+}
+
+sub original {
+    my $self = shift;
+    $self->{original} = shift if @_;
+    return $self->{original};
+}
+
+sub stringify {
+    my $self = shift;
+    return $self->original;
+}
+
+1;