1 #-------------------------------------------------------------------------------------------------------------- 2 # Show Changelog 3 #-------------------------------------------------------------------------------------------------------------- 4 5 use strict; 6 use warnings; 7 8 sub show_changelog 9 { 10 my $text = join("", &readf($main::changelog)); 11 12 &show_dialog("Changelog", $text); 13 } 14 15 1;