1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
package Module::Install::PRIVATE::Update_Test_Version;
use strict;
use vars qw( @ISA $VERSION );
use Module::Install::Base;
@ISA = qw( Module::Install::Base );
$VERSION = sprintf "%d.%02d%02d", q/0.10.0/ =~ /(\d+)/g;
# ---------------------------------------------------------------------------
sub Update_Test_Version
{
my $self = shift;
my $file_with_version = shift;
my $test_case_file = shift;
$self->include_deps('File::Slurper', 0);
require File::Slurper;
File::Slurper->import('read_text', 'write_text');
open SOURCE, $file_with_version
or die "Couldn't open grepmail file: $!";
my $found = 0;
while (my $line = <SOURCE>)
{
if ($line =~ /^\$VERSION = (.*q\/(.*?)\/.*);/)
{
$found = 1;
my $version = eval $1;
my $test_case_code = read_text($test_case_file, undef, 1);
$test_case_code =~ s/^grepmail .*$/grepmail $version/m;
unlink $test_case_file;
write_text("$test_case_file", $test_case_code, undef, 1);
last;
}
}
die "Couldn't find version line in $file_with_version" unless $found;
close SOURCE;
}
1;
|
