Debian/Dgit/GDR.pm

   1 # -*- perl -*-
   2
   3 package Debian::Dgit::GDR;
   4
   5 use strict;
   6 use warnings;
   7
   8 # Scripts and programs which are going to `use Debian::Dgit' but which
   9 # live in git-debrebase (ie are installed with install-gdr)
  10 # should `use Debian::Dgit::GDR' first.  All this module does is
  11 # adjust @INC so that the script gets the version of the script from
  12 # the git-debrebase package (which is installed in a different
  13 # location and may be a different version).
  14
  15 # To use this with ExitStatus, put at the top (before use strict, even):
  16 #
  17 #   END { $? = $Debian::Dgit::ExitStatus::desired // -1; };
  18 #   use Debian::Dgit::GDR;
  19 #   use Debian::Dgit::ExitStatus;
  20 #
  21 # and then replace every call to `exit' with `finish'.
  22 # Add a `finish 0' to the end of the program.
  23
  24 # unshift @INC, q{/usr/share/dgit/gdr/perl5}; ###substituted###
  25
  26 1;