chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
3fe0309304feb8b8d8dd8d47b311b4c4fd0318ec
[dgit.git]
/
Debian
/
Dgit.pm
1
#
2
3
package Debian::Dgit;
4
5
use strict;
6
use warnings;
7
8
BEGIN {
9
use Exporter ();
10
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
11
12
$VERSION = 1.00;
13
@ISA = qw(Exporter);
14
@EXPORT = qw(debiantag
15
$package_re);
16
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
17
@EXPORT_OK = qw();
18
}
19
20
our @EXPORT_OK;
21
22
our $package_re = '[0-9a-z][-+.0-9a-z]*';
23
24
sub debiantag ($) {
25
my ($v) = @_;
26
$v =~ y/~:/_%/;
27
return "debian/$v";
28
}
29
30
1;