partial: 1.0.1.jcn

[lilypond.git] / bin / show-latest.pl

diff --git a/bin/show-latest.pl b/bin/show-latest.pl
index 1c3d14dd0e9818c43f912dc21e552d1b0391697c..2b2c994d000666f82e45bd18e5ae3fdd37ceaa68 100755 (executable)
--- a/bin/show-latest.pl
+++ b/bin/show-latest.pl
@@ -1,8 +1,10 @@
 #!@PERL@
 # -*-Perl-*-
 
-
-$reldir="/home/hanwen/musix/releases";
+$LILYPOND_SOURCEDIR="$ENV{LILYPOND_SOURCEDIR}";
+$LILYPOND_ROOTDIR=`cd $LILYPOND_SOURCEDIR/..; pwd`;
+chop ($LILYPOND_ROOTDIR);
+$reldir="$LILYPOND_ROOTDIR/releases";
 
 use FileHandle;
 use Getopt::Long;
@@ -35,7 +37,7 @@ my $last= (pop @versions);
 
 
 if (  $opt_print ) {
-    print $last;
+    print $last . "\n";
 }
 
 if ( $opt_latest) {