source: trunk/debathena/scripts/SbuildHack.pm @ 22979

Revision 22979, 373 bytes checked in by tabbott, 17 years ago (diff)
Remove old locking code from SbuildHack.pm.
Line 
1package SbuildHack;
2
3use Sbuild qw(binNMU_version);
4
5sub 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
181;
Note: See TracBrowser for help on using the repository browser.