4 $LILYPOND_SOURCEDIR="$ENV{LILYPOND_SOURCEDIR}";
5 $LILYPOND_ROOTDIR=`cd $LILYPOND_SOURCEDIR/..; pwd`;
6 chop ($LILYPOND_ROOTDIR);
7 $reldir="$LILYPOND_ROOTDIR/releases";
14 my(@a)= split( /\./, $a);
15 my(@b)= split( /\./, $b);
18 return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
24 open LS
, "ls -1 $reldir|";
26 GetOptions
( 'print', 'news', 'latest');
30 $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
35 @versions = sort cmpver
@versions;
36 my $last= (pop @versions);
44 system "rm $reldir/zZ*";
45 system "> $reldir/zZ_LATEST_IS_$last";
48 open NEWS
, "tar --to-stdout -zxf $reldir/lilypond-$last.tar.gz lilypond-$last/NEWS |";
49 input_record_separator NEWS
"****";