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/hangman.orig	2025-11-04 14:05:44.000000000 +0000
+++ bin/hangman
@@@@ -13,6 +13,7 @@@@ License: gpl
 
 
 use strict;
+use PerlPowerTools;
 
 srand();
 my( $cont ) = "y";
@@@@ -72,7 +73,7 @@@@ while( $cont =~ /^y/io ) {
 print "\nTHANKS FOR PLAYING!\n";
 
 sub get_a_word {
-	my $wordlist = "wordlist.txt";
+	my $wordlist = get_dictionary_path("wordlist.txt");
 	my( $fh, $word );
 	my( $random ) = rand();
 
@@@@ -129,7 +130,8 @@@@ hangman's gallows.
 =head1 FILES
 
 F<wordlist.txt> - make a list of words you'd like to use and put it
-in the current directory.
+in the current directory.  If F<wordlist.txt> not found, try to
+use system dictionary file.
 
 =head1 AUTHOR
 
@