andersk / config-package-dev.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!/usr/bin/perl | |
| 2 | $ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg; | |
| 3 | print $ARGV[0]; | |
| 4 | sub unparse { | |
| 5 | $_ = $_[0]; | |
| 6 | return "/" unless $_; | |
| 7 | return "_" if $_ eq "-"; | |
| 8 | return uc($_) if /^[a-z]$/; | |
| 9 | s/^x//; | |
| 10 | return chr hex $_; | |
| 11 | } |