SbuildHack.pm

   1 package SbuildHack;
   2
   3 use Sbuild qw(binNMU_version);
   4
   5 sub new_binNMU_version {
   6     my $v = shift;
   7     my $binNMUver = shift;
   8     die("Wrong binNMUver!") unless ($binNMUver == 171717);
   9     die("No NMUTAG set in environment!") unless ($ENV{"NMUTAG"});
  10     return $v . $ENV{"NMUTAG"};
  11 };
  12
  13 {
  14     no warnings 'redefine';
  15     *Sbuild::binNMU_version = \&new_binNMU_version;
  16 }
  17
  18 1;