File-Glob/Glob.xs - more efficient mortal AV creation

Perl · Jan 28, 2024 · 8f6ecd0 · 8f6ecd0
1 parent 3ac780f
commit 8f6ecd0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ext/File-Glob/Glob.xs b/ext/File-Glob/Glob.xs
@@ -240,7 +240,7 @@ csh_glob(pTHX_ AV *entries, const char *pat, STRLEN len, bool is_utf8)
 			else sv_catpvn(word, piece, s-piece);
 		    }
 		    if (!word) break;
-		    if (!patav) patav = (AV *)sv_2mortal((SV *)newAV());
+		    if (!patav) patav = newAV_mortal();
 		    av_push(patav, word);
 		    word = NULL;
 		    piece = NULL;