head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.4
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.2
	pkgsrc-2025Q4-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2025.11.30.06.24.16;	author scole;	state Exp;
branches;
next	;
commitid	CnFp79zcnCjPGxkG;


desc
@@


1.1
log
@Update to version 1.053nb1
- robots: add needed .../devel/p5-Curses dependency
- mimedecode: change 'PerlPowerTools::MIME::Parser->new;' to 'MIME::Parser->new;'
- PerlPowerTools.pm: add get_dictionary_path() for system dictionary
- with hangman & spell & words commands, fallback to system dictionary
- fortune: fix offensive => is_offensive, add /usr/share/games/fortune to search path
- keep utilties and man pages in separate directory, but move perl modules to perllib dir
@
text
@$NetBSD$

try to use system dictionary if no wordlist

--- bin/words.orig	2025-11-04 14:05:44.000000000 +0000
+++ bin/words
@@@@ -16,6 +16,7 @@@@ use strict;
 use File::Basename qw(basename dirname);
 use File::Spec qw();
 use Getopt::Std qw(getopts);
+use PerlPowerTools;
 
 use constant EX_SUCCESS => 0;
 use constant EX_FAILURE => 1;
@@@@ -56,6 +57,7 @@@@ if (-d $wordlist) {
     exit EX_FAILURE;
 }
 my $dict;
+$wordlist = get_dictionary_path($wordlist);
 unless (open $dict, '<', $wordlist) {
     warn "$Program: unable to open '$wordlist': $!\n";
     exit EX_FAILURE;
@@@@ -134,7 +136,8 @@@@ B<words> accepts the following options:
 
 By default, B<words> looks for a word-file named 'wordlist' in the
 same directory as the executable.  Use the B<-w> option to specify the
-path to an alternate word list.
+path to an alternate word list.  If no word file found, attempt to use
+a system dictionary wordlist instead.
 
 =item B<-m> I<min-length>
 
@