Revision 22918,
848 bytes
checked in by tabbott, 16 years ago
(diff) |
In config-package-dev:
* Add new DEB_REMOVE_FILES_$package variable designed for removing
files in .d directories.
* Move the "configure-" in the filename encoding from the encode script
to divert.mk, so that we can re-use the encoder for DEB_REMOVE_FILES.
* Add new DEB_UNDIVERT_FILES_package and DEB_UNREMOVE_FILES_package
API variables for having a new version of the package stop diverting a
file.
* Correct check for not generating an empty if clause when no files are
being diverted.
* Remove only the last DEB_DIVERT_EXTENSION from filenames.
|
Rev | Line | |
---|
[22854] | 1 | #!/usr/bin/perl |
---|
| 2 | # Encode name of a file in a Debian package name. |
---|
| 3 | # |
---|
| 4 | # DO NOT CHANGE THIS FUNCTION OR WE WILL ALL BURN IN CONFLICT HELL |
---|
| 5 | # |
---|
| 6 | # The purpose of this encoding is to cause Debian configuration |
---|
| 7 | # packages (potentially from different sites) that divert the same |
---|
| 8 | # configuration file to conflict with each other. Thus, it is |
---|
| 9 | # important that all sites using this Debian configuration package |
---|
| 10 | # system use this encoding. |
---|
| 11 | # |
---|
| 12 | # This encoding is intended to be human-readable, so that users can |
---|
| 13 | # determine the cause of conflicts between different configuration |
---|
| 14 | # packages. |
---|
| 15 | |
---|
| 16 | $ARGV[0] =~ s,^/,,; |
---|
| 17 | split('', $ARGV[0]); |
---|
| 18 | foreach (@_){ |
---|
| 19 | if (m/[a-z0-9.-]/) { |
---|
| 20 | print "$_"; |
---|
| 21 | } elsif (m/[A-Z]/) { |
---|
| 22 | print "+".lc($_)."+"; |
---|
| 23 | } elsif ($_ eq '/') { |
---|
| 24 | print "++"; |
---|
| 25 | } elsif ($_ eq '_') { |
---|
| 26 | print "+-+"; |
---|
| 27 | } else{ |
---|
| 28 | print "+x".hex(ord($_))."+"; |
---|
| 29 | } |
---|
| 30 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.