X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2Fdebian%2Fversions%2Fmerge-one-version;h=ac4a54a968e6047437a5ad9d0e9ee0ec824e32f0;hb=361ce318f6b1ed07089331fe6888d106eb2bc24e;hp=7be6f38a198ac2c3305667d86ef51c00c0ec7d09;hpb=391087ed1e0dd29814da3c0b5c2153174216eb5d;p=debbugs.git diff --git a/examples/debian/versions/merge-one-version b/examples/debian/versions/merge-one-version index 7be6f38..ac4a54a 100755 --- a/examples/debian/versions/merge-one-version +++ b/examples/debian/versions/merge-one-version @@ -1,12 +1,14 @@ #! /usr/bin/perl -w -use vars qw($gVersionPackagesDir); -require '/etc/debbugs/config'; -my $root = $gVersionPackagesDir; +use warnings; use strict; + +use Debbugs::Config qw(:config); use Debbugs::Versions; use Debbugs::Versions::Dpkg; +my $root = $config{version_packages_dir}; + unless (-d $root) { mkdir $root or die "can't mkdir $root: $!\n";