Commit d9483200 authored by rygelgit's avatar rygelgit

Fixing compilation error

parent 165cf254
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -24,8 +26,7 @@ ...@@ -24,8 +26,7 @@
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#
#!/usr/bin/perl
use strict; use strict;
use Switch; use Switch;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package ResponseValidator; package ResponseValidator;
sub valiate_soap_response { sub valiate_soap_response {
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/bin/usr/perl
package ActionresponseInclude; package ActionresponseInclude;
use responseaction::NSLookUpResponse; use responseaction::NSLookUpResponse;
use responseaction::PingResponse; use responseaction::PingResponse;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package CancelTestRequest; package CancelTestRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package DeviceStatusRequest; package DeviceStatusRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package GetActiveTestIDsRequest; package GetActiveTestIDsRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package NSLookUpRequest; package NSLookUpRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package PingRequest; package PingRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TestIDsRequest; package TestIDsRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TestInfoRequest; package TestInfoRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TracerouteRequest; package TracerouteRequest;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package NSLookUpResponse; package NSLookUpResponse;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package PingResponse; package PingResponse;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TracerouteResponse; package TracerouteResponse;
use utils::SocketCalls; use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package SocketCalls; package SocketCalls;
use utils::SoapHeaders qw( ); use utils::SoapHeaders qw( );
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc. # Copyright (c) 2014, CableLabs, Inc.
# All rights reserved. # All rights reserved.
# #
...@@ -25,7 +27,6 @@ ...@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package Util; package Util;
use strict; use strict;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment