10 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
14 @EXPORT = qw(debiantag server_branch server_ref
16 $package_re $branchprefix);
17 %EXPORT_TAGS = ( policyflags => qw() );
23 our $package_re = '[0-9a-z][-+.0-9a-z]*';
24 our $branchprefix = 'dgit';
27 # policy hook exit status bits
28 # any unexpected bits mean failure, and then known set bits are ignored
30 sub NOFFCHECK () { return 2; }
31 # suppress dgit-repos-server's ff check ("push" only)
33 sub FRESHREPO () { return 4; }
34 # blow away repo right away (ie, as if before push or fetch)
35 # ("check-package" and "push" only)
44 sub server_branch ($) { return "$branchprefix/$_[0]"; }
45 sub server_ref ($) { return "refs/".server_branch($_[0]); }
50 return 0 if $!==&ENOENT;