Commit d9483200 authored by rygelgit's avatar rygelgit

Fixing compilation error

parent 165cf254
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -24,8 +26,7 @@
# 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
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
#
use strict;
use Switch;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package ResponseValidator;
sub valiate_soap_response {
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/bin/usr/perl
package ActionresponseInclude;
use responseaction::NSLookUpResponse;
use responseaction::PingResponse;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package CancelTestRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package DeviceStatusRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package GetActiveTestIDsRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package NSLookUpRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package PingRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TestIDsRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TestInfoRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TracerouteRequest;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package NSLookUpResponse;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package PingResponse;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package TracerouteResponse;
use utils::SocketCalls;
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package SocketCalls;
use utils::SoapHeaders qw( );
......
#!/usr/bin/perl
# Copyright (c) 2014, CableLabs, Inc.
# All rights reserved.
#
......@@ -25,7 +27,6 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#!/usr/bin/perl
package Util;
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