[Libguestfs] [PATCH 2/3] perl: silence usage of add_cdrom in test

One test explicitly tests add_cdrom, so silence the deprecation warning only for that function. --- perl/t/060-handle-properties.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/perl/t/060-handle-properties.t b/perl/t/060-handle-properties.t index 6b1ee4242..8df6a68c3 100644 --- a/perl/t/060-handle-properties.t +++ b/perl/t/060-handle-properties.t @@ -40,5 +40,8 @@ ok ($g->get_path () ne "", "path is empty"); $g->add_drive ("/dev/null"); ok (1, "add drive"); -$g->add_cdrom ("/dev/zero"); -ok (1, "add cdrom"); +do { + no warnings 'deprecated'; + $g->add_cdrom ("/dev/zero"); + ok (1, "add cdrom"); +} -- 2.20.1