From adb2331da0cf217c7f3bbc4b8bacb6e7d3bd0532 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sun, 8 Jan 2006 22:19:39 +0000
Subject: Grr.  #26690 broke handling of old ODS-2 style names on current
 versions of VMS

p4raw-id: //depot/perl@26744
---
 configure.com | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'configure.com')

diff --git a/configure.com b/configure.com
index 6b6a4082fd..11c085384d 100644
--- a/configure.com
+++ b/configure.com
@@ -510,8 +510,8 @@ $       ELSE
 $         file_2_find = "[-]" + file_2_find
 $       ENDIF
 $!
-$       tmp = f$parse(file_2_find + ";",,,,"SYNTAX_ONLY")
-$       IF tmp .NES. "" THEN file_2_find = tmp
+$       tmp = F$PARSE(file_2_find + ";",,,,"SYNTAX_ONLY")
+$       IF F$SEARCH(tmp) .NES. "" THEN file_2_find = tmp
 $       dirname = F$EXTRACT(0,F$LOCATE("]",file_2_find),file_2_find) + "]"
 $       file_2_find = file_2_find - dirname
 $!
-- 
cgit v1.2.1