view release on metacpan or  search on metacpan

lib/Software/Packager/Rpm.pm  view on Meta::CPAN

		{
			warn "Error: Not sure what type of link to create soft or hard.";
		}
	}

	# here is where we specify all the installable objects
	print SPEC "\%files\n";
	foreach my $object ($self->get_directory_objects(), $self->get_file_objects(), $self->get_link_objects())
	{
		my $destination = $object->destination();
		my $user = getpwuid($object->user());
		my $group = getgrgid($object->group());
		my $mode = $object->mode();
		print SPEC "\%attr($mode, $user, $group)";
		print SPEC " \%" . $object->kind() if $object->kind();
		print SPEC " /$destination\n"
	}

	close SPEC;

	return 1;