OLD | NEW |
1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
2 | 2 |
3 use strict; | 3 use strict; |
4 | 4 |
5 sub update_man_page($); | 5 sub update_man_page($); |
6 sub update_bin_tool($); | 6 sub update_bin_tool($); |
7 sub update_txt_file($); | 7 sub update_txt_file($); |
8 sub update_spec_file($); | 8 sub update_spec_file($); |
9 sub get_file_info($); | 9 sub get_file_info($); |
10 | 10 |
(...skipping 75 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
86 { | 86 { |
87 my ($filename) = @_; | 87 my ($filename) = @_; |
88 my @date = get_file_info($filename); | 88 my @date = get_file_info($filename); |
89 local *IN; | 89 local *IN; |
90 local *OUT; | 90 local *OUT; |
91 | 91 |
92 open(IN, "<$filename") || die ("Error: cannot open $filename\n"); | 92 open(IN, "<$filename") || die ("Error: cannot open $filename\n"); |
93 open(OUT, ">$filename.new") || | 93 open(OUT, ">$filename.new") || |
94 die("Error: cannot create $filename.new\n"); | 94 die("Error: cannot create $filename.new\n"); |
95 while (<IN>) { | 95 while (<IN>) { |
96 » » s/(our\s+\$lcov_version\s*=\s*\").*(\".*)$/$1LCOV version $versi
on$2/g; | 96 » » s/(our\s+\$lcov_version\s*=\s*["']).*(["'].*)$/$1LCOV version $v
ersion$2/g; |
97 print(OUT $_); | 97 print(OUT $_); |
98 } | 98 } |
99 close(OUT); | 99 close(OUT); |
100 close(IN); | 100 close(IN); |
101 chmod(oct($date[2]), "$filename.new"); | 101 chmod(oct($date[2]), "$filename.new"); |
102 system("mv", "-f", "$filename.new", "$filename"); | 102 system("mv", "-f", "$filename.new", "$filename"); |
103 system("touch", "$filename", "-t", $date[1]); | 103 system("touch", "$filename", "-t", $date[1]); |
104 } | 104 } |
105 | 105 |
106 sub update_txt_file($) | 106 sub update_txt_file($) |
(...skipping 30 matching lines...) Expand all Loading... |
137 while (<IN>) { | 137 while (<IN>) { |
138 s/^(Version:\s*)\d+\.\d+.*$/$1$version/; | 138 s/^(Version:\s*)\d+\.\d+.*$/$1$version/; |
139 s/^(Release:\s*).*$/$1$release/; | 139 s/^(Release:\s*).*$/$1$release/; |
140 print(OUT $_); | 140 print(OUT $_); |
141 } | 141 } |
142 close(OUT); | 142 close(OUT); |
143 close(IN); | 143 close(IN); |
144 system("mv", "-f", "$filename.new", "$filename"); | 144 system("mv", "-f", "$filename.new", "$filename"); |
145 system("touch", "$filename", "-t", $date[1]); | 145 system("touch", "$filename", "-t", $date[1]); |
146 } | 146 } |
OLD | NEW |