equal
deleted
inserted
replaced
145 copy ($from, $to) or die "Error: Couldn't copy '$from' to '$to' - $!\n"; |
145 copy ($from, $to) or die "Error: Couldn't copy '$from' to '$to' - $!\n"; |
146 } |
146 } |
147 |
147 |
148 sub Version { |
148 sub Version { |
149 my $version = 'Unknown'; |
149 my $version = 'Unknown'; |
150 my $kChangeHistoryFileName = "../../documentation/change_history.pod"; |
150 |
|
151 my $kChangeHistoryFileName = "/sf/os/fshell/fshell/documentation/change_history.pod"; |
|
152 |
|
153 |
151 open (HISTORY, $kChangeHistoryFileName) or die "Error: Couldn't open \"$kChangeHistoryFileName\" for reading: $!\n"; |
154 open (HISTORY, $kChangeHistoryFileName) or die "Error: Couldn't open \"$kChangeHistoryFileName\" for reading: $!\n"; |
152 while (my $line = <HISTORY>) { |
155 while (my $line = <HISTORY>) { |
153 if ($line =~ /(Release \d+.*)/i) { |
156 if ($line =~ /(Release \d+.*)/i) { |
154 $version = $1; |
157 $version = $1; |
155 last; |
158 last; |