This program needs one directory name to be passed on the command line.
This directory is where the installation's executable files live. Any files
that are in the installation bin directory will be compared against the files
This program needs one directory name to be passed on the command line.
This directory is where the installation's executable files live. Any files
that are in the installation bin directory will be compared against the files
# iterate over all the files in the source directory.
opendir CURDIR, $install_directory
|| die("couldn't open $install_directory for reading.\n");
# iterate over all the files in the source directory.
opendir CURDIR, $install_directory
|| die("couldn't open $install_directory for reading.\n");
foreach $filename (readdir CURDIR) {
if ( ($filename eq ".") || ($filename eq "..") ) { next; }
if (! ($filename =~ /\.dll$/)) { next; }
foreach $filename (readdir CURDIR) {
if ( ($filename eq ".") || ($filename eq "..") ) { next; }
if (! ($filename =~ /\.dll$/)) { next; }
# repeat for the exe directory.
opendir CURDIR, $install_directory
|| die("couldn't open $install_directory for reading.\n");
# repeat for the exe directory.
opendir CURDIR, $install_directory
|| die("couldn't open $install_directory for reading.\n");
foreach $filename (readdir CURDIR) {
if ( ($filename eq ".") || ($filename eq "..") ) { next; }
if (! ($filename =~ /\.exe$/)) { next; }
foreach $filename (readdir CURDIR) {
if ( ($filename eq ".") || ($filename eq "..") ) { next; }
if (! ($filename =~ /\.exe$/)) { next; }