5 $reldir="/home/hanwen/musix/releases";
12 my(@a)= split( /\./, $a);
13 my(@b)= split( /\./, $b);
16 return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
22 open LS, "ls -1 $reldir|";
24 GetOptions( 'print', 'news', 'latest');
28 $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
33 @versions = sort cmpver @versions;
34 my $last= (pop @versions);
42 system "rm $reldir/zZ*";
43 system "> $reldir/zZ_LATEST_IS_$last";
46 open NEWS, "tar --to-stdout -zxf $reldir/lilypond-$last.tar.gz lilypond-$last/NEWS |";
47 input_record_separator NEWS "****";