On Wed, 9 Feb 2005, Atkinson, Robert wrote: > I'm using TXT2PDF from Sanface Software. We've converted some of our disks to > ODS-5, but now find that the files generated from uppercase filenames are > created in lower case. > > The user process has the PARSE_STYLE parameter set to TRADITIONAL, so that > files are created in uppercase by default, but this appears to make no > difference within Perl.
> This is the code :- > > $output.=$out; > $verbose and print "Changing to uppercase\n"; > $output=uc($out); > open (OUT, ">$output") || die "$producer1: couldn't open output file > $output\n"; > > And the output is :- > > Processing SYS$TEMP:TEST_20050209_BFAD.TXT file > Processing VMS file > Changing to uppercase > Writing TEST_20050209_BFAD.PDF file > > But the file created is in lowercase :- > > Directory SY0:[LIVE.TMP] > > test_20050209_bfad.pdf;11 > 14/52 9-FEB-2005 14:43:40.30 > TEST_20050209_BFAD.TXT;2 > 4/52 9-FEB-2005 14:08:36.38 Just before running Perl, try: $define/user decc$efs_case_preserve enable See if it makes a difference. If it does, then it needs to be decided if PERL should take this action by default if the user does not explicitly set the decc$efs_case_preserve feature logical before running perl. -John [EMAIL PROTECTED] Personal Opinion Only
