Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    
    print "Not OK" if $elem1->active_container != $cont1;
    
  2. or download this
    C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/container_elem.pl 
    OK
    OK
    Not OK
    Compilation finished at Fri Oct  8 17:48:07