Change 28581 by [EMAIL PROTECTED] on 2006/07/15 18:57:39
Adding Module::Build::Version missed in upgrade.
Affected files ...
... //depot/perl/MANIFEST#1431 edit
... //depot/perl/lib/Module/Build/Version.pm#1 add
Differences ...
==== //depot/perl/MANIFEST#1431 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#1430~28580~ 2006-07-15 08:22:35.000000000 -0700
+++ perl/MANIFEST 2006-07-15 11:57:39.000000000 -0700
@@ -2039,6 +2039,7 @@
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
==== //depot/perl/lib/Module/Build/Version.pm#1 (text) ====
Index: perl/lib/Module/Build/Version.pm
--- /dev/null 2006-07-11 09:52:25.542918000 -0700
+++ perl/lib/Module/Build/Version.pm 2006-07-15 11:57:39.000000000 -0700
@@ -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;
End of Patch.
