kgoess

2012-08-30T20:23:03-0700  [Full GC 2781761K->2708373K(3185792K), 3.3753720 secs]
2012-08-30T20:23:06-0700  [Full GC 2781761K->2716602K(3185792K), 3.3700720 secs]
2012-08-30T20:23:10-0700  Aug 30, 2012 8:23:10 PM org.apache.pdfbox.util.PDFStreamEngine processOperator
2012-08-30T20:23:10-0700  INFO: unsupported/disabled operation: EI
2012-08-30T20:23:10-0700  Aug 30, 2012 8:23:10 PM org.apache.pdfbox.util.PDFStreamEngine processOperator
2012-08-30T20:23:10-0700  INFO: unsupported/disabled operation: EI
2012-08-30T20:23:10-0700  [Full GC 2781761K->2678370K(3185792K), 5.5074720 secs]
2012-08-30T20:23:15-0700  [Full GC 2769221K->2703956K(3185792K), 3.2465440 secs]
2012-08-30T20:23:19-0700  [Full GC 2769221K->2717077K(3185792K), 3.2863430 secs]
2012-08-30T20:23:22-0700  [Full GC 2769221K->2714094K(3185792K), 3.2148860 secs]

kgoess

--- cpanlib/lib/perl5/Plack/Middleware/AccessLog.pm  2012-12-18 12:51:36.678259555 -0800
+++ cpanlib/lib/perl5/Plack/Middleware/PreAccessLog.pm	2013-08-20 12:41:27.072938490 -0700
@@ -1,57 +1,55 @@
-package Plack::Middleware::AccessLog;
+package Plack::Middleware::PreAccessLog;
 use strict;
 use warnings;
 use parent qw( Plack::Middleware );
 use Plack::Util::Accessor qw( logger format );
 

kgoess

Index: lib/utility.php
===================================================================
--- lib/utility.php	(revision 7436)
+++ lib/utility.php	(working copy)
@@ -113,7 +113,7 @@
 				$data_source_item_name = "";
 			}
 
-			api_poller_cache_item_add($data_source["host_id"], array(), $local_data_id, $data_input["rrd_step"], $action, $data_source_item_name, 1, addslashes($script_path));
+			api_poller_cache_item_add($data_source["host_id"], array(), $local_data_id, $data_input["rrd_step"], $action, $data_source_item_name, 1, $script_path);

kgoess

Index: lib/utility.php
===================================================================
--- lib/utility.php	(revision 7436)
+++ lib/utility.php	(working copy)
@@ -272,17 +272,22 @@
 						if (($data_input["type_id"] == DATA_INPUT_TYPE_QUERY_SCRIPT_SERVER) && (function_exists("proc_open"))) {
 							$action = POLLER_ACTION_SCRIPT_PHP;
 							$script_path = get_script_query_path((isset($script_queries["arg_prepend"]) ? $script_queries["arg_prepend"] : "") . " " . $script_queries["arg_get"] . " " . $identifier . " " . $data_source["snmp_index"], $script_queries["script_path"] . " " . $script_queries["script_function"], $data_source["device_id"]);
+							$script_path = addslashes($script_path);
 						}else if (($data_input["type_id"] == DATA_INPUT_TYPE_QUERY_SCRIPT_SERVER) && (!function_exists("proc_open"))) {

kgoess

diff -Naur pkgconfig.orig/form_g.pc /usr/lib64/pkgconfig/form_g.pc
--- pkgconfig.orig/form_g.pc	1969-12-31 16:00:00.000000000 -0800
+++ /usr/lib64/pkgconfig/form_g.pc	2014-05-31 14:11:05.888245619 -0700
@@ -0,0 +1,13 @@
+prefix=/usr/local/
+exec_prefix=${prefix}
+libdir=${exec_prefix}/lib
+includedir=${prefix}/include/ncurses
+major_version=5
+version=5.9.20110404

kgoess

--- libwww-perl-5.803/lib/LWP/Protocol/http.pm	2014-06-16 11:25:06.055198604 -0700
+++ LWPx-ParanoidAgent-1.00/lib/LWPx/Protocol/http_paranoid.pm	2014-06-16 16:52:29.971196260 -0700
@@ -1,411 +1,429 @@
 # $Id: http.pm,v 1.68 2004/06/14 16:26:46 gisle Exp $
 #
 
-package LWP::Protocol::http;
+package LWPx::Protocol::http_paranoid;
 
 use strict;

kgoess

package LWPx::Protocol::http_paranoid;

use strict;


require LWP::Debug;
require HTTP::Response;
require HTTP::Status;
require Net::HTTP;

kgoess

package LWPx::Protocol::https_paranoid;

# $Id: https_paranoid.pm 2 2005-06-01 23:12:25Z bradfitz $

use strict;

# Changing Method Resolution Order because the original https inherited 
# from http. But now we want to search for methods first in the original
# https, *then* in the new http_paranoid, and only last in the original http.
use mro 'c3';

kgoess

--- /home/kevin/git/libwww-perl/lib/LWP/Protocol/http.pm	2014-06-10 13:05:28.383259747 -0700
+++ /home/kevin/mylib/lib/perl5/LWP/Protocol/http.pm	2014-06-16 16:32:27.979196405 -0700
@@ -196,21 +196,22 @@
 	    $socket = $upgrade_sub->($proto_https,
 		$response->{client_socket},$url)
 		or die "SSL upgrade failed: $@";
 	} else {
 	    $socket = $proto_https->_new_socket($url->host,$url->port,$timeout);
 	}
     }

kgoess

$ cat long-test.pl 
use strict;
use warnings;

use Benchmark;

# build a regex with a lot of alternations
my $r = '';
for my $l ('a'..'y', 'A'..'Y'){
        $r .= $l x 10;