s/comment/comment_t/ tweak (suggested by John Gorman

<jgorman@webbysoft.com>)

p4raw-id: //depot/perl@2344

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index fd5acb6..06e00ad 100644 (file)
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -80,7 +80,7 @@ sub B::Asmdata::PUT_PV {
     error "bad string argument: $arg" unless defined($arg);
     return pack("N", length($arg)) . $arg;
 }
-sub B::Asmdata::PUT_comment {
+sub B::Asmdata::PUT_comment_t {
     my $arg = shift;
     $arg = uncstring($arg);
     error "bad string argument: $arg" unless defined($arg);

diff --git a/ext/B/B/Disassembler.pm b/ext/B/B/Disassembler.pm
index f26441d..4a008a3 100644 (file)
--- a/ext/B/B/Disassembler.pm
+++ b/ext/B/B/Disassembler.pm
@@ -77,7 +77,7 @@ sub GET_PV {
     }
 }
 
-sub GET_comment {
+sub GET_comment_t {
     my $fh = shift;
     my ($str, $c);
     while (defined($c = $fh->getc) && $c ne "\n") {