Fixed source for old versions of documentation

[exim-website.git] / script / gen.pl

diff --git a/script/gen.pl b/script/gen.pl
index 76734bf1bfa1ebd2d084a93d8aa1c729233052e3..92cff58a7fb86c9b3220b73a2109c2825bde52b6 100755 (executable)
--- a/script/gen.pl
+++ b/script/gen.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 use strict;
 use warnings;
@@ -26,7 +26,9 @@ do_web() if exists $opt{web};
 
 ## Add the exim-html-current symlink
 print "Symlinking exim-html-current to exim-html-$opt{latest}\n";
-symlink( "$opt{docroot}/exim-html-$opt{latest}", "$opt{docroot}/exim-html-current" );
+unlink("$opt{docroot}/exim-html-current") if ( -l "$opt{docroot}/exim-html-current" );
+symlink( "exim-html-$opt{latest}", "$opt{docroot}/exim-html-current" )
+  || die "symlink to $opt{docroot}/exim-html-current failed";
 
 ## Generate the website files
 sub do_web {