view release on metacpan or  search on metacpan

classgen  view on Meta::CPAN

	
# -----------------------------------------------------------------------------

sub archive {	# to archive previous versions of classes and control files
	my ($pm, $gs)=@_;
	my $ar="archive";
	if(!opendir AR, $ar) {
		mkdir $ar, 0755;	# for some reason 0755 does not work
		opendir AR, $ar;
	}
	chmod 0755, $ar;		# set correct mode
	
	my $n_max=getmax(readdir AR);
	my $new_pm=$ar . "/" . $n_max . "_".$pm;
	my $new_gs=$ar . "/" . $n_max . "_".$gs;
	
	copy($pm, $new_pm);
	copy($gs, $new_gs);
	
	closedir AR;
	print '';