diff --git a/lib/Reddit.pm b/lib/Reddit.pm index 1f988d6..d16944d 100644 --- a/lib/Reddit.pm +++ b/lib/Reddit.pm @@ -163,8 +163,8 @@ sub _parse_link { } sub _parse_comment_id { -# ID's require a t3_ or t1_ prefix depending on whether it is a -# post or comment id respectively. + # ID's require a t3_ or t1_ prefix depending on whether it is a + # post or comment id respectively. my $id = shift; if (length($id) == 5){ $id = "t3_" . $id} elsif (length($id) == 7){ $id = "t1_" . $id} @@ -229,7 +229,7 @@ sub submit_story { sub comment { my $self = shift; my ($thing_id, $comment) = @_; - $thing_id = &_parse_comment_id($thing_id); + $thing_id = $self->_parse_comment_id($thing_id); my $response = $self->post($self->comment_api, { thing_id => $thing_id,