summaryrefslogtreecommitdiffstats
path: root/RPM4/t/02header.t
diff options
context:
space:
mode:
authornanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2007-07-21 02:00:27 +0000
committernanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2007-07-21 02:00:27 +0000
commite522e54059fa08222b5fa3eecf886955b71fb9bb (patch)
treeb9bcc783ef6d98124077c486cc880536324c5b9d /RPM4/t/02header.t
parent5bda9256094bd5e398c7b21dc189a0feab9a5559 (diff)
downloadperl-RPM4-e522e54059fa08222b5fa3eecf886955b71fb9bb.tar
perl-RPM4-e522e54059fa08222b5fa3eecf886955b71fb9bb.tar.gz
perl-RPM4-e522e54059fa08222b5fa3eecf886955b71fb9bb.tar.bz2
perl-RPM4-e522e54059fa08222b5fa3eecf886955b71fb9bb.tar.xz
perl-RPM4-e522e54059fa08222b5fa3eecf886955b71fb9bb.zip
- string: fix test, then fix the function
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@138 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/t/02header.t')
-rw-r--r--RPM4/t/02header.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/RPM4/t/02header.t b/RPM4/t/02header.t
index b6ff323..52934e0 100644
--- a/RPM4/t/02header.t
+++ b/RPM4/t/02header.t
@@ -86,7 +86,7 @@ ok($string, "can get header as string");
my $hdl = File::Temp->new(UNLINK => 1);
print $hdl $string;
seek($hdl, 0, 0);
-my $hdr2 = RPM4::stream2header($hdl);
-isa_ok($hdr, "RPM4::Header", "can reparse header from a string");
+my $hdr2 = RPM4::stream2header($hdl, $magic);
+isa_ok($hdr2, "RPM4::Header", "can reparse header from a string");
}
}