summaryrefslogtreecommitdiffstats
path: root/perl-install/c
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-21 09:44:21 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-21 09:44:21 +0000
commitd91a1de3e32ad7ad00d64ac9ef6ec2b68358e0f9 (patch)
treee86c42cda6d5979264c21988324487940b57f892 /perl-install/c
parent3507800100da6fde08167f34d6e685fbe36e2948 (diff)
downloaddrakx-backup-do-not-use-d91a1de3e32ad7ad00d64ac9ef6ec2b68358e0f9.tar
drakx-backup-do-not-use-d91a1de3e32ad7ad00d64ac9ef6ec2b68358e0f9.tar.gz
drakx-backup-do-not-use-d91a1de3e32ad7ad00d64ac9ef6ec2b68358e0f9.tar.bz2
drakx-backup-do-not-use-d91a1de3e32ad7ad00d64ac9ef6ec2b68358e0f9.tar.xz
drakx-backup-do-not-use-d91a1de3e32ad7ad00d64ac9ef6ec2b68358e0f9.zip
add volume_set_id
Diffstat (limited to 'perl-install/c')
-rw-r--r--perl-install/c/stuff.xs.pl1
1 files changed, 1 insertions, 0 deletions
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)))));
}
}