From 2d2c4ee08d98faebd736ccb695f572d4333694ca Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 25 Aug 2019 15:08:07 -0700
Subject: [PATCH] Add some more error checking

---
 koi8-to-cp1251.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/koi8-to-cp1251.pl b/koi8-to-cp1251.pl
index 06293b07f..3a7bc83ba 100755
--- a/koi8-to-cp1251.pl
+++ b/koi8-to-cp1251.pl
@@ -39,7 +39,8 @@
 0xD2,0xD3,0xD4,0xD5,0xC6,0xC8,0xC3,0xDE,0xDB,0xDD,0xDF,0xD9,0xD8,0xDC,0xC0,0xD1)
 ;
 
-chdir($ARGV[0] || "/usr/local/webadmin");
+@ARGV == 1 || die "Usage: $0 <directory>";
+chdir($ARGV[0]) || die "Failed to chdir to $ARGV[0] : $!";
 @modules = ( "." );
 opendir(DIR, ".");
 foreach $d (readdir(DIR)) {