f74d91dd08
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Net-Telnet-Cisco?expand=0&rev=2
27 lines
849 B
Diff
27 lines
849 B
Diff
From a88b17db58f3b4bb2c70d061c626c31bbd76367f Mon Sep 17 00:00:00 2001
|
|
From: Kai Baesler <kbaesler@astaro.com>
|
|
Date: Wed, 5 May 2010 12:11:52 +0200
|
|
Subject: [PATCH] [13209] Remove annoying warning from Net::Telnet::Cisco
|
|
|
|
* fixes https://rt.cpan.org/Public/Bug/Display.html?id=7796
|
|
---
|
|
Net-Telnet-Cisco-1.10/Cisco.pm | 2 +-
|
|
1 files changed, 1 insertions(+), 1 deletions(-)
|
|
|
|
diff --git a/Net-Telnet-Cisco-1.10/Cisco.pm b/Net-Telnet-Cisco-1.10/Cisco.pm
|
|
index 32965be..3615e0e 100755
|
|
--- a/Net-Telnet-Cisco-1.10/Cisco.pm
|
|
+++ b/Net-Telnet-Cisco-1.10/Cisco.pm
|
|
@@ -753,7 +753,7 @@ sub _normalize {
|
|
1 while s/[^\cH\c?][\cH\c?]//mg; # ^H ^?
|
|
s/^.*\cU//mg; # ^U
|
|
|
|
- return wantarray ? split /$/mg, $_ : $_; # ORS instead?
|
|
+ return wantarray ? split /$/m, $_ : $_; # ORS instead?
|
|
}
|
|
|
|
# Lifted from Net::Telnet en toto
|
|
--
|
|
1.7.1
|
|
|