| 1 | #!/usr/bin/perl |
| 2 | # Encode name of a file in a Debian package name. |
| 3 | # |
| 4 | # The purpose of this encoding is to cause Debian configuration |
| 5 | # packages (potentially from different sites) that divert the same |
| 6 | # configuration file to conflict with each other. Thus, it is |
| 7 | # important that all sites using this Debian configuration package |
| 8 | # system use this encoding. |
| 9 | # |
| 10 | # This encoding is intended to be human-readable, so that users can |
| 11 | # determine the cause of conflicts between different configuration |
| 12 | # packages. |
| 13 | |
| 14 | use strict; |
| 15 | use warnings; |
| 16 | use Debian::Debhelper::config_package; |
| 17 | |
| 18 | print encode($ARGV[0]); |