findpkgconflicts.pl: tweak usage message.

1 files changed, 8 insertions, 2 deletions

diff --git a/findpkgconflicts.pl b/findpkgconflicts.pl
index 8ae767a..355e2e8 100755
--- a/findpkgconflicts.pl
+++ b/findpkgconflicts.pl
@@ -2,15 +2,21 @@
 
 ($SELF = $0) =~ s,.*/,,;
 
+$PKGDIR="/var/log/packages";
+
 sub usage() {
 	print <<EOF;
 Usage: $SELF [-s]
 
-Finds conflicting files in Slackware packages.
+Finds conflicting files in Slackware packages, by looking at
+the package database in $PKGDIR.
 
 Options:
   -s  Ignore 3rd-party packages (core Slackware only).
   -a  Include aaa_* packages and openssl-solibs (normally ignored).
+
+Environment:
+  PACKAGE_DIR - directory to use instead of $PKGDIR
 EOF
   exit 0;
 }
@@ -26,7 +32,7 @@ for(@ARGV) {
 	die "Unknown argument '$_', try --help.\n";
 }
 
-$pkgdir = $ENV{PACKAGE_DIR} || "/var/log/packages";
+$pkgdir = $ENV{PACKAGE_DIR} || $PKGDIR;
 
 chdir $pkgdir or die "$!\n";