From 5ab83efb4a700c1cd2d0d50ab2dd5be1a178e494 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <puck@catalyst.net.nz>
Date: Tue, 11 Mar 2008 22:06:23 +1300
Subject: [PATCH] Don't bother printing an error if Net::UPnP::ControlPoint isn't installed, unless we really need it.
---
mythtv/bindings/perl/MythTV.pm | 1 -
1 files changed, 0 insertions(+), 1 deletions(-)
diff --git a/mythtv/bindings/perl/MythTV.pm b/mythtv/bindings/perl/MythTV.pm
index 931705f..17d42cc 100644
|
a
|
b
|
package MythTV;
|
| 30 | 30 | eval 'use Net::UPnP::ControlPoint;'; |
| 31 | 31 | if ($@) { |
| 32 | 32 | $has_upnp = 0; |
| 33 | | print STDERR "Net::UPnP::ControlPoint is not installed!\n"; |
| 34 | 33 | } |
| 35 | 34 | } |
| 36 | 35 | |
