fix:Changed deprecated code for resources access.

antononcube · Mar 27, 2024 · 97cfb99 · 97cfb99
1 parent c8bc7a5
commit 97cfb99
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/Data/Generators/ResourceAccess.rakumod b/lib/Data/Generators/ResourceAccess.rakumod
@@ -47,9 +47,9 @@ class Data::Generators::ResourceAccess {
         #say "Number of calls to .make $numberOfMakeCalls";
 
         #-----------------------------------------------------------
-        my $fileName = %?RESOURCES{'dfEnglishWords.csv'};
+        my $fileName = %?RESOURCES<dfEnglishWords.csv>;
 
-        my $text = slurp $fileName.Str;
+        my $text = slurp $fileName;
         @englishWords = $text.split("\n").map({ $_.split(',') });
         @englishWords = @englishWords[1..*-1];
 
@@ -70,9 +70,9 @@ class Data::Generators::ResourceAccess {
 
         #-----------------------------------------------------------
         # Species Name Count
-        $fileName = %?RESOURCES{'dfPetNameCounts.csv'};
+        $fileName = %?RESOURCES<dfPetNameCounts.csv>;
 
-        $text = slurp $fileName.Str;
+        $text = slurp $fileName;
         my @petNames = $text.split("\n").map({ $_.split('",').List });
         @petNames = @petNames[1..*-1];
         @petNames = @petNames.grep({ $_.elems == 3 });