[cs_CZ] Branch update pro funkcionalitu komentarovych bloku
open L,FILENAME or die "File ".FILENAME." cannot be opened: $!";
do_d();
verbose "Creating links from ".FILENAME;
open L,FILENAME or die "File ".FILENAME." cannot be opened: $!";
do_d();
verbose "Creating links from ".FILENAME;
- next if /^$/; # empty-file (->empty-dir) stub line
+ my $cmt_old=$cmt;
+ $cmt=!$cmt if /^#!/;
+ next if $cmt || $cmt_old || /^$/; # comment or empty-file (->empty-dir) stub line
/^(.+)\t(.+)$/ or warn "Unrecognized line: $_";
verbose "Creating link $1";
symlink $2,$1 or warn "symlink(\"$2\"->\"$1\"): $!";
/^(.+)\t(.+)$/ or warn "Unrecognized line: $_";
verbose "Creating link $1";
symlink $2,$1 or warn "symlink(\"$2\"->\"$1\"): $!";
{
local(*L,*D);
opendir D,"." or die "Cannot open directory \".\": $!";
{
local(*L,*D);
opendir D,"." or die "Cannot open directory \".\": $!";
- open L,">".FILENAME or die "File ".FILENAME." cannot be created: $!";
verbose "Storing links to ".FILENAME;
verbose "Storing links to ".FILENAME;
- print L "\n"; # empty-file (->empty-dir) stub line
+ my $cmtblock="";
+ if (open L,FILENAME) {
+ my $cmt=0;
+ while (<L>) {
+ my $cmt_old=$cmt;
+ $cmt=!$cmt if /^#!/;
+ next unless $cmt || $cmt_old; # comment
+ $cmtblock.=$_;
+ }
+ close L;
+ }
+ $cmtblock="\n" if !$cmtblock; # empty-file (->empty-dir) stub line
+ open L,">".FILENAME or die "File ".FILENAME." cannot be created: $!";
+ print L $cmtblock;
for (readdir D) {
next if ! -l;
my $target=readlink or die "Cannot read link $_: $!";
for (readdir D) {
next if ! -l;
my $target=readlink or die "Cannot read link $_: $!";
print L "$_\t$target\n";
}
closedir D;
print L "$_\t$target\n";
}
closedir D;