view release on metacpan or  search on metacpan

examples/ocssvn.pl  view on Meta::CPAN

	    # INVENTORY's ACCOUNTINFO. Hence, we insert it from the
	    # META we grokked earlier.
	    foreach my $accountinfo (values %{$computer->{ACCOUNTINFO}}) {
		$accountinfo->{DATABASEID} //= $id;
	    }

	    open my $fd, '>:raw', $file;
	    $fd->print($json->utf8->encode($computer));
	}

	shell("svn add -q '$file' && svn propset -q svn:mime-type 'text/javascript; charset=UTF-8' '$file'")
	    unless $existed;
    }
}

warn "* Commit changes...\n";
shell("svn ci -q -m 'ocssvn commit'");

my $new_tag = strftime("%F%T", localtime);
$new_tag =~ tr/0-9//cd;
warn "* Previous tag: $svn_url/tags/$last_tag\n";