Annotation of /bin/last_version

#! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl -w
# $Id: last_version,v 1.2 2014/12/02 15:43:55 ccflib Exp $
use strict;
use FileHandle;

    my $cl = new FileHandle $ARGV[0], "r" or die("Do not see ChangeLog");
    my $inlog;
    while(<$cl>){
     if(/^Version/){
      if(not defined $inlog){
        $inlog++;
      } else {
        last;
      }
     }
    print if(defined $inlog);
    }
    $cl->close();
    
1	ccflib	1.3	#! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl -w
2			# $Id: last_version,v 1.2 2014/12/02 15:43:55 ccflib Exp $
3	ccflib	1.1	use strict;
4			use FileHandle;
5
6			my $cl = new FileHandle $ARGV[0], "r" or die("Do not see ChangeLog");
7			my $inlog;
8			while(<$cl>){
9			if(/^Version/){
10			if(not defined $inlog){
11			$inlog++;
12			} else {
13			last;
14			}
15			}
16			print if(defined $inlog);
17			}
18			$cl->close();
19