Matching abs_path on relative is bound to fail

Tux · Tux · commit e2b803bd8309 · 2026-05-28T08:01:21.000+02:00
diff --git a/dbixs_rev.h b/dbixs_rev.h
@@ -1,4 +1,4 @@
-/* Wed May 27 11:43:29 2026 */
+/* Wed May 28 08:00:00 2026 */
 #define DBIXS_RELEASE  1
 #define DBIXS_VERSION  648
-#define DBIXS_REVISION 1722
+#define DBIXS_REVISION 1723
diff --git a/lib/DBD/File.pm b/lib/DBD/File.pm
@@ -628,7 +628,7 @@ sub complete_table_name {
     # If the file location is outside the current folder, its
     # absolute path should be in ($f_dir, @f_dir_search)
     if ($searchdir and not List::Util::first { m{^$searchdir(?:/|$)} }
-	    $meta->{f_dir}, @{$meta->{f_dir_search} || []}) {
+	    map { Cwd::abs_path ($_) } $meta->{f_dir}, @{$meta->{f_dir_search} || []}) {
 	croak "Using data files in $searchdir is unsafe and not allowed.\nUse f_dir or f_dir_search.\n";
 	}
 
diff --git a/lib/DBI/Changes.pm b/lib/DBI/Changes.pm
@@ -12,7 +12,7 @@ DBI::Changes - List of significant changes to the DBI
 
 =encoding UTF-8
 
-=head2 Changes in DBI 1.648 - 27 May 2025
+=head2 Changes in DBI 1.648 - 27 May 2026
 
 =over 2
 

Original file line number	Diff line number	Diff line change
`@@ -628,7 +628,7 @@ sub complete_table_name {`
`628`	`628`	`# If the file location is outside the current folder, its`
`629`	`629`	`# absolute path should be in ($f_dir, @f_dir_search)`
`630`	`630`	`if ($searchdir and not List::Util::first { m{^$searchdir(?:/\|$)} }`
`631`		`- $meta->{f_dir}, @{$meta->{f_dir_search} \|\| []}) {`
	`631`	`+ map { Cwd::abs_path ($_) } $meta->{f_dir}, @{$meta->{f_dir_search} \|\| []}) {`
`632`	`632`	`croak "Using data files in $searchdir is unsafe and not allowed.\nUse f_dir or f_dir_search.\n";`
`633`	`633`	`}`
`634`	`634`