3 use vars qw(%dir_list);
5 "art_Persistency_Common" => "art_Persistency_Common canvas",
6 "art_Persistency_Provenance" => "art_Persistency_Provenance canvas",
7 "art_Persistency_Common_dict" => "canvas_Persistency_Common_dict",
8 "art_Persistency_StdDictionaries" => "canvas_Persistency_StdDictionaries",
9 "art_Persistency_StdDictionaries_dict" => "canvas_Persistency_StdDictionaries_dict",
10 "art_Persistency_WrappedStdDictionaries" => "canvas_Persistency_WrappedStdDictionaries",
11 "art_Persistency_WrappedStdDictionaries_dict" => "canvas_Persistency_WrappedStdDictionaries_dict",
12 "art_Utilities" => "art_Utilities canvas"
15 foreach my $lib (sort keys %dir_list) {
16 next if m&art_Persistency_Common canvas&i;
17 next if m&art_Persistency_Provenance canvas&i;
18 next if m&art_Utilities canvas&i;
19 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
20 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
23 s/\$\{ART_PERSISTENCY_COMMON\}/art_Persistency_Common canvas/g;
24 s/\$\{ART_PERSISTENCY_PROVENANCE\}/art_Persistency_Provenance canvas/g;
25 s/\$\{ART_UTILITIES\}/art_Utilities canvas/g;
26 s&\$ENV\{ART_DIR\}/Modules&\$ENV\{CANVAS_DIR\}/Modules&g;