view release on metacpan or  search on metacpan

script/hcgen  view on Meta::CPAN

sub HTML::Calendar::Monthly::build_title {
    my ($self, $fmt) = @_;
    my $t = $title_format;
    $t =~ s/\%m/lc($self->month_name)/ge;
    $t =~ s/\%M/$self->month_name/ge;
    $t =~ s/\%y/$self->year/gie;
    return $t;
}

sub update_if_needed($$) {
    my ($fname, $new) = @_;

    # Do not overwrite unless modified.
    if ( -s $fname && -s _ == length($new) ) {
	local($/);
	my $hh = do { local *F; *F };
	my $old;
	open($hh, "<", $fname) && ($old = <$hh>) && close($hh);
	if ( $old eq $new ) {
	    return 0;