diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-03-21 10:48:37 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-03-22 15:19:27 +0000 |
commit | 850c5e51043c2eb3a9804877314edefb6156e816 (patch) | |
tree | 61c9770fcdd6c25a30850acb464090737cd099e2 /Debian/Dgit.pm | |
parent | 1d5064c943a0561bd7028fedff3dd9bb28fc2bb7 (diff) |
Move $package_re into Debian::Dgit
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 2be936b..3fe0309 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -11,13 +11,16 @@ BEGIN { $VERSION = 1.00; @ISA = qw(Exporter); - @EXPORT = qw(debiantag); + @EXPORT = qw(debiantag + $package_re); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], @EXPORT_OK = qw(); } our @EXPORT_OK; +our $package_re = '[0-9a-z][-+.0-9a-z]*'; + sub debiantag ($) { my ($v) = @_; $v =~ y/~:/_%/; |