X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-dev.git/blobdiff_plain/e1b80beac24d1ebdd7afebf073248e03b5d2bdcc..d6660755c5b38b89e3b9ec852f17502f6c59e806:/SbuildHack.pm

diff --git a/SbuildHack.pm b/SbuildHack.pm
new file mode 100644
index 0000000..ed9c866
--- /dev/null
+++ b/SbuildHack.pm
@@ -0,0 +1,18 @@
+package SbuildHack;
+
+use Sbuild qw(binNMU_version);
+
+sub new_binNMU_version {
+    my $v = shift;
+    my $binNMUver = shift;
+    die("Wrong binNMUver!") unless ($binNMUver == 171717);
+    die("No NMUTAG set in environment!") unless ($ENV{"NMUTAG"});
+    return $v . $ENV{"NMUTAG"};
+};
+
+{
+    no warnings 'redefine';
+    *Sbuild::binNMU_version = \&new_binNMU_version;
+}
+
+1;