From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 28 Nov 1998 13:03:29 +0000 (+0000)
Subject: s/comment/comment_t/ tweak (suggested by John Gorman
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d53d2b93ae88ad7aee0d6be2e225d148d9f90674;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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") {