| 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 |