Skip to content
This repository was archived by the owner on Dec 11, 2024. It is now read-only.

Commit e227482

Browse files
committed
Revert code added in 5.40
Perl/perl5#19599
1 parent 588b03d commit e227482

File tree

1 file changed

+0
-30
lines changed

1 file changed

+0
-30
lines changed

C.xs

-30
Original file line numberDiff line numberDiff line change
@@ -669,36 +669,6 @@ aux_list_thr(o)
669669
#endif
670670
} /* switch */
671671

672-
#/* ************************************************************ */
673-
MODULE = B PACKAGE = B::PADNAME PREFIX = Padname
674-
#/* ************************************************************ */
675-
676-
#/*
677-
#* PadnameGEN submitted to 5.36
678-
#* - view https://github.com/Perl/perl5/pull/19599
679-
#*/
680-
681-
int
682-
PadnameGEN(padn)
683-
B::PADNAME padn
684-
CODE:
685-
RETVAL = padn->xpadn_gen;
686-
OUTPUT:
687-
RETVAL
688-
689-
#/*
690-
#* PadnameIsUndef submitted to 5.36
691-
#* - view https://github.com/Perl/perl5/pull/19599
692-
#*/
693-
694-
bool
695-
PadnameIsUndef(padn)
696-
B::PADNAME padn
697-
CODE:
698-
RETVAL = padn == &PL_padname_undef ? TRUE : FALSE;
699-
OUTPUT:
700-
RETVAL
701-
702672
#/* ************************************************************ */
703673
MODULE = B PACKAGE = B::PADNAMELIST PREFIX = Padnamelist
704674
#/* ************************************************************ */

0 commit comments

Comments
 (0)