ActivePerl discussion

Perl and ActivePerl usage questions; Perl practices and programming questions; Perl questions that don't fit other categories

Perl CVE-2013-1667 Input Rehashing Denial of Service Vulnerability

Does this apply to active perl I know that it applies to the more generic version of Perl 5.14.x. Will ActiveState release a product specific patch to address this issue?

Error: ...undefined value "$Server->MapPath("

Hi - Im a newbie and this sample test throws this error:
Can't call method "MapPath" on an undefined value at F:\Test\ line 6.

If I remove line 6, I get "test" printed.

The is a sample code:

use strict;
use warnings;
use vars qw($Request $Response $Application $Server $Session);

my $path="test";
$path = $Server->MapPath(".");
print $path;

Serial read


I am new to perl programming, but not to programming in general. Currently I am working on a project, where I need to read data from a serial port. A perl script was provided for this, and because of the nature and requirements of the project, I must use this specific perl script. The script was written probably in the early 2000's.

I am running ActiveState Perl v5.24.3. on 64-bit Windows 10. Here is the code:

$ComPort = "COM7:38400,n,8,1";
open COM,$ComPort or die "Cannot open COMport\n";
open OUT,">" . $Package . ".log" or die "Cannot open logfile\n";

ODBC Connection issue


System: Windows 2012 r2; x64; Perl 5.26.0 x86

The application is a classic ASP web hosted on iis 8.5.
Having issues in DB connection to SQL server; ODBCx32 DSN setup properly and it connects.

The DSN used in VBScript works great.. But the same DSN doesnt work in perl.
The error says:
DBI connect('Sentinel','sentinel',...) failed: [Microsoft][ODBC SQL Server Drive
r][SQL Server]Login failed for user 'sentinel'. (SQL-28000) at line

Could someone help to identify the error...
Venkatesh Kanale

Perl Command Line Interpreter crashing - Bex64 and the Fault Module Name: StackHash_1dc2

Perl Command Line Interpreter is crashing
with below error details when ever we tried to connect to DB2 on IBM i.

Problem signature:
Problem Event Name: BEX64
Application Name: perl.exe
Application Version:
Application Timestamp: 5a2ee972
Fault Module Name: StackHash_1dc2
Fault Module Version:
Fault Module Timestamp: 00000000
Exception Offset: 0000000000000000
Exception Code: c0000005
Exception Data: 0000000000000008
OS Version: 6.1.7601.
Locale ID: 3081
Additional Information 1: 1dc2

Steps to install perl 5.28 from source

Hello experts,
I have to install the perl latest. installer is not available for version 5.28. provided the following option from the Site and i tried to install on windows seems not working. this command executes with following error "Program too big to fit in memory". could you please help here.

How to install from source

tar -xzf perl-5.28.0.tar.gz
cd perl-5.28.0
./Configure -des -Dprefix=$HOME/localperl
make test
make install

Active perl 5.26.1 installater will support to compile 5.26.2?

Hi Experts,

Q1 : We are migrating Activeperl version from 5.24.1 to 5.26.2 to fix the "CVE-2018-6913".

To compile the source i need the installer (.exe) to refer the bin location in the environemnt path. But the activeperl installer i could download the version 5.26.1. To fix the CVE i need perl version 5.26.2.

So if i install 5.26.1 then will it support to compile the 5.26.2 version ?.

Q2 : Same i have a another question here :

Perl more comand start giving error after upgrading to windows to 1803 version. It worked fin with windows 1709,1703,1609 ver

code which start giving Too many arguments in command line after upgradign to windows 1803 version. This same code work fine with windows 1709 version

my $syscmd="more $tppath\\IMP-name-Title.txt >> $Namelist";

Error on console:
more template\IMP-name-Title.txt >> temp-Name\Namelist.txt
Too many arguments in command line.

Anyone knows solutiuon for this issue.

rename function failing during a directory renaming operation

I have a small perl script that I want to use to rename directories / folders in a certain way.
If you put the directories name directly in the function it works but if you put a variable it fails.
See my code below:
Any ideas on how to fix this. Running on windows 7 and using 32 bit Activestate perl.

#use this script to rename folders to make it consistent naming style
# We will decide on our naming convention and style when this Perl script is working
# Aug 1, 2018
# test script to rename directory folder
#$file = "C:/folder1/" . "$file";

Suggestions on migrating from Windows Server 2003

I'm running Perl on a Windows 2003 Server. The time has come to finally move to a more current version of Windows and I was wondering if you guys have any suggestions or warnings. Am I going to have any problems with Windows Server 12 or 16?

Though I've used Perl for 20 years, I've only installed/reinstalled it or any packages like GD or some .pdf scripts a couple of times, so from that angle I'm a beginner.

We also use MDaemon for the email part of what we do.

Thanks for any help,