make_slides/bug.pl

   1 #!/usr/local/bin/perl
   2
   3 use strict ;
   4 use warnings ;
   5
   6 use CMS::Simple ;
   7 use Data::Dumper ;
   8
   9 my $content = CMS::Simple::Parse::parse_content( <<CONT ) ;
  10 foo: bar
  11 foo::
  12         baz: jfdjdfj
  13 END:
  14 foo: more
  15 foo:: more2
  16         aaa: 4
  17 END:
  18 CONT
  19
  20 print Dumper $content ;