|
Lines 444-452
Link Here
|
| 444 |
if ($_ =~ /^\@/) { |
444 |
if ($_ =~ /^\@/) { |
| 445 |
if ($_ =~ /^\@(cwd|cd)[ \t]+(\S+)/) { |
445 |
if ($_ =~ /^\@(cwd|cd)[ \t]+(\S+)/) { |
| 446 |
$curdir = $2; |
446 |
$curdir = $2; |
|
|
447 |
} elsif ($_ =~ /^\@unexec[ \t]+rm[ \t]/) { |
| 448 |
if ($_ !~ /%D/) { |
| 449 |
&perror("WARN: pkg-plist:$. use \"%D\" to specify prefix."); |
| 450 |
} |
| 451 |
if ($_ !~ /true$/) { |
| 452 |
&perror("WARN: pkg-plist:$. add \"2>&1 ". |
| 453 |
">/dev/null || true\" ". |
| 454 |
"to \"\@unexec rm\"."); |
| 455 |
} |
| 447 |
} elsif ($_ =~ /^\@unexec[ \t]+rmdir/) { |
456 |
} elsif ($_ =~ /^\@unexec[ \t]+rmdir/) { |
|
|
457 |
if ($_ !~ /%D/) { |
| 458 |
&perror("WARN: pkg-plist:$. use \"%D\" to specify prefix."); |
| 459 |
} |
| 448 |
if ($_ !~ /true$/) { |
460 |
if ($_ !~ /true$/) { |
| 449 |
&perror("WARN: use \"\@dirrm\" ". |
461 |
&perror("WARN: pkg-plist:$. use \"\@dirrm\" ". |
| 450 |
"instead of \"\@unexec rmdir\"."); |
462 |
"instead of \"\@unexec rmdir\"."); |
| 451 |
} |
463 |
} |
| 452 |
} elsif ($_ =~ /^\@exec[ \t]+scrollkeeper-install[ \t]+-q\s+(\S+)\s+.+$/) { |
464 |
} elsif ($_ =~ /^\@exec[ \t]+scrollkeeper-install[ \t]+-q\s+(\S+)\s+.+$/) { |