From 850c5e51043c2eb3a9804877314edefb6156e816 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 21 Mar 2015 10:48:37 +0000 Subject: Move $package_re into Debian::Dgit Signed-off-by: Ian Jackson --- Debian/Dgit.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Debian/Dgit.pm') 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/~:/_%/; -- cgit v1.2.3