• set_properties.msn

    62 63  
    121 121
    122 122 if ( scalar(keys(%{ $IMAGES })) > 0)
    123 123 {
    124 my $maxnumber = 0;
    125 for ( 1..100 ) {
    126 $maxnumber = $_ if exists $IMAGES->{"image_$_"} && $_ > $maxnumber;
    127 }
    128 $IMAGES->{maxnumber} = $maxnumber;
    124 129 local $Data::Dumper::Indent = 0;
    125 130 $object->{$name} = Data::Dumper::Dumper($IMAGES);
    126 131 }