Author: dagolden
Date: Wed Sep 16 19:25:34 2009
New Revision: 13354
Modified:
Module-Build/branches/inc-bundling/lib/inc/latest.pm
Log:
[PATCH 2/3] add VERSION numbers to inc::latest, etc.
Modified: Module-Build/branches/inc-bundling/lib/inc/latest.pm
==============================================================================
--- Module-Build/branches/inc-bundling/lib/inc/latest.pm (original)
+++ Module-Build/branches/inc-bundling/lib/inc/latest.pm Wed Sep 16
19:25:34 2009
@@ -1,6 +1,8 @@
package inc::latest;
use strict;
-use warnings;
+use vars qw($VERSION);
+$VERSION = '0.35_03';
+$VERSION = eval $VERSION;
use Carp;
use File::Basename ();
@@ -46,6 +48,7 @@
# write inc/latest.pm
File::Path::mkpath( $where );
my $fh = IO::File->new( File::Spec->catfile($where,'latest.pm'), "w" );
+ print {$fh} "# This stub created by inc::latest $VERSION\n";
print {$fh} do {local $/; <DATA>};
close $fh;
@@ -230,7 +233,8 @@
__DATA__
package inc::latest;
use strict;
+use vars '@ISA';
require inc::latest::private;
-our @ISA = qw/inc::latest::private/;
+...@isa = qw/inc::latest::private/;
1;
