9 my $debian_dir = $ARGV[0];
11 find(\&symlink_if_file,$debian_dir);
16 my ($leading,$dir,$file_name) = $File::Find::name
17 =~ m{(.+/usr/share/info/lilypond/)(.*?)([^/]+)$};
18 my $n_slashes = $dir =~ m{/}g;
20 File::Spec->catfile(('..') x ($n_slashes+2),
21 qw(doc lilypond html Documentation),
26 File::Spec->catfile(('..') x ($n_slashes+4),
31 system('ln','-sf',$info_file,$html_file);
32 print STDERR "linking $html_file -> $info_file\n";
34 print STDERR "html file $html_file doesn't exist\n";