Potential fix for a problem we can't seem to cause again... but the fix shouldn...

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@3172 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/scripts/POE-Filter-FSSocket/CHANGES b/scripts/POE-Filter-FSSocket/CHANGES
index f0dda71c9945d781008aaf3adca27e797450ab1f..931f21de712f6149624371d0ea40d5b91744d638 100644 (file)
--- a/scripts/POE-Filter-FSSocket/CHANGES
+++ b/scripts/POE-Filter-FSSocket/CHANGES
@@ -1,3 +1,12 @@
+=========================
+2006-10-23 00:19:14 v0_07
+=========================
+
+  2006-10-23 00:19:14 (r7) by ptinsley
+
+    Potential fix for default POE modules on debian with perl 5.8.4, but I
+        I can't be sure because we can't make the problem happen again.
+
 =========================
 2006-10-23 00:15:32 v0_06
 =========================

diff --git a/scripts/POE-Filter-FSSocket/lib/POE/Filter/FSSocket.pm b/scripts/POE-Filter-FSSocket/lib/POE/Filter/FSSocket.pm
index ea71256a17c177b6cb716ed31adab4df141bb701..52bfbab73d1e07efa1030ff652db8470a52b4cd5 100755 (executable)
--- a/scripts/POE-Filter-FSSocket/lib/POE/Filter/FSSocket.pm
+++ b/scripts/POE-Filter-FSSocket/lib/POE/Filter/FSSocket.pm
@@ -106,7 +106,7 @@ use Carp qw(carp croak);
 use vars qw($VERSION);
 use base qw(POE::Filter);
 
-$VERSION = '0.06';
+$VERSION = '0.07';
 
 use Data::Dumper;
 
@@ -149,7 +149,7 @@ sub new {
                0,             #length tracking (for Content-Length when needed)
                $strict,       #whether we should bail on a bad parse or try and save the session
                $debug,        #debug level
-       ], $class;
+       ], ref($class) || $class;
 
        return $self;
 }