equal
deleted
inserted
replaced
146 } |
146 } |
147 |
147 |
148 sub Version { |
148 sub Version { |
149 my $version = 'Unknown'; |
149 my $version = 'Unknown'; |
150 |
150 |
151 my $kChangeHistoryFileName = "/sf/os/fshell/fshell/documentation/change_history.pod"; |
151 my $kChangeHistoryFileName = "/sf/os/fshell/documentation/change_history.pod"; |
152 |
152 |
153 |
153 |
154 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"; |
155 while (my $line = <HISTORY>) { |
155 while (my $line = <HISTORY>) { |
156 if ($line =~ /(Release \d+.*)/i) { |
156 if ($line =~ /(Release \d+.*)/i) { |