Parent Directory | Revision Log | Patch
revision 1.24 by dams, Sat May 24 17:27:19 2003 UTC | revision 1.25 by dams, Sat May 24 22:52:55 2003 UTC | |
---|---|---|
# | Line 350 sub parse { | Line 350 sub parse { |
350 | ||
351 | sub handle_comment { | sub handle_comment { |
352 | my ($string, $comments) = @_; | my ($string, $comments) = @_; |
require Data::Dumper; | ||
print "-------------\n"; | ||
print Data::Dumper::Dumper($string) . "\n"; | ||
print Data::Dumper::Dumper($comments) . "\n"; | ||
print "-------------\n"; | ||
353 | my $ret = ''; | my $ret = ''; |
354 | my $flag = 1; | my $flag = 1; |
355 | foreach my $comment (@$comments) { | foreach my $comment (@$comments) { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |