my $data = XMLin("C:\\core\\jobs_1.xml");
#works perfectly
my $filename = $config->{'DRIVE'}.$config->{'JOBS_XML_FILE'}
print $filename."\n";
my $data = XMLin($filename);
__OUTPUT__
C:\\core\\jobs_1.xml
panic: pp_match start/end pointers at C:/Perl/lib/File/Basename.pm line 186.
####
use strict;
my $config = XMLin("config.xml");
my $data = XMLin("C:\\core\\jobs_1.xml");
#works perfectly
my $config = XMLin("config.xml");
my $filename = $config->{'DRIVE'}.$config->{'JOBS_XML_FILE'}
$filename =~ s/\\\\/\\/g;
print $filename."\n";
my $data = XMLin($filename);
__OUTPUT__
C:\core\jobs_1.xml
panic: pp_match start/end pointers at C:/Perl/lib/File/Basename.pm line 186.
####
This is perl, v5.8.3 built for MSWin32-x86-multi-thread
(with 8 registered patches, see perl -V for more detail)
Copyright 1987-2003, Larry Wall
Binary build 809 provided by ActiveState Corp. http://www.ActiveState.com
ActiveState is a division of Sophos.
Built Feb 3 2004 00:28:51