equal
deleted
inserted
replaced
11 # Subroutine to get the mercurial revision from which this package was branched |
11 # Subroutine to get the mercurial revision from which this package was branched |
12 # from the file ../baseline.txt |
12 # from the file ../baseline.txt |
13 |
13 |
14 use strict; |
14 use strict; |
15 use File::Spec; |
15 use File::Spec; |
16 use set_epocroot; |
16 use places; |
17 |
17 |
18 sub trim($) |
18 sub trim($) |
19 { |
19 { |
20 my $string = shift; |
20 my $string = shift; |
21 $string =~ s/^\s+//; |
21 $string =~ s/^\s+//; |
23 return $string; |
23 return $string; |
24 } |
24 } |
25 |
25 |
26 sub get_baseline() |
26 sub get_baseline() |
27 { |
27 { |
28 set_epocroot(); |
28 my $epocroot = get_epocroot(); |
29 my $epocroot = $ENV{'EPOCROOT'}; |
29 my $baseline_txt = File::Spec->catfile(get_pkg_dir(),"baseline.txt"); |
30 my $baseline_txt = File::Spec->catfile("$epocroot","build","baseline.txt"); |
|
31 open IN,"<$baseline_txt" or die $!; |
30 open IN,"<$baseline_txt" or die $!; |
32 my @lines = <IN>; |
31 my @lines = <IN>; |
33 close IN; |
32 close IN; |
34 while(@lines and $lines[0] =~ /^\s*#/) { |
33 while(@lines and $lines[0] =~ /^\s*#/) { |
35 shift @lines; |
34 shift @lines; |