File: summary

package info (click to toggle)
wml 2.0.12ds1-8
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 3,432 kB
  • ctags: 116
  • sloc: perl: 5,634; sh: 3,663; makefile: 1,004
file content (20 lines) | stat: -rwxr-xr-x 454 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
:
eval 'exec perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
##
##  summary -- Display a summary of the latest changes
##

$changelog = $ARGV[0];
open(CL, "<$changelog") || die;
$changes = '';
$changes .= $_ while (<CL>);
close(CL);

$changes =~ s|^.+?\n(\s*Changes between)|$1|s;
$changes =~ s|(Changes between.*?\n)\s*Changes between.*|$1|s;
$changes =~ s/\n(\s*\*\)\s*.+?):\s*\n.+?(?=\n\s*\*\)\s*|$)/$1/sg;
$changes .= "\n";

print $changes;