From d91a1de3e32ad7ad00d64ac9ef6ec2b68358e0f9 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 21 Jul 2005 09:44:21 +0000 Subject: add volume_set_id --- perl-install/c/stuff.xs.pl | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/c/stuff.xs.pl') diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 4c95e5b0d..5752ebb40 100644 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -770,6 +770,7 @@ get_iso_volume_ids(int fd) if (voldesc.type[0] == ISO_VD_PRIMARY && !strncmp(voldesc.id, ISO_STANDARD_ID, sizeof(voldesc.id))) { XPUSHs(sv_2mortal(newSVpv(voldesc.volume_id, length_of_space_padded(voldesc.volume_id, sizeof(voldesc.volume_id))))); XPUSHs(sv_2mortal(newSVpv(voldesc.application_id, length_of_space_padded(voldesc.application_id, sizeof(voldesc.application_id))))); + XPUSHs(sv_2mortal(newSVpv(voldesc.volume_set_id, length_of_space_padded(voldesc.volume_set_id, sizeof(voldesc.volume_set_id))))); } } -- cgit v1.2.1