$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/~:/_%/;