-
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 }