source: trunk/debathena/debathena/config-package-dev/decode @ 25426

Revision 25426, 256 bytes checked in by andersk, 13 years ago (diff)
In config-package-dev: * Fix DEB_CHECK_FILES and DEB_TRANSFORM_FILES with non-conffiles in Multi-Arch: same packages. * Fix encode script to work with Perl 5.12. While we’re at it, turn on strict and warnings. * Bump Standards-Version to 3.9.2 (no changes required). * Add Vcs-Git, Vcs-Browser.
  • Property svn:executable set to *
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6$ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
7print $ARGV[0];
8sub unparse {
9    $_ = $_[0];
10    return "/" unless $_;
11    return "_" if $_ eq "-";
12    return uc($_) if /^[a-z]$/;
13    s/^x//;
14    return chr hex $_;
15}
Note: See TracBrowser for help on using the repository browser.