Searched refs:sub7 (Results 1 – 1 of 1) sorted by relevance
58 sub sub7 ($) { 1 } subroutine59 sub sub7 () { 2 } subroutine61 ok 13, $warn =~ s/$NEWPROTO \Qsub main::sub7 ($) vs ()\E[^\n]+\n//s;62 ok 14, $warn =~ s/Subroutine sub7 redefined[^\n]+\n//s;