[Socialtext-commits] SF.net SVN: socialtext: [1003] branches/rug/lib/Socialtext/Rug/Cookie.pm

[<pet...@us...>]

Revision: 1003
          http://svn.sourceforge.net/socialtext/?rev=1003&view=rev
Author:   petdance
Date:     2007-01-30 14:36:19 -0800 (Tue, 30 Jan 2007)

Log Message:
-----------
Throw away $r under mod_perl1 for fetch()

Modified Paths:
--------------
    branches/rug/lib/Socialtext/Rug/Cookie.pm

Modified: branches/rug/lib/Socialtext/Rug/Cookie.pm
===================================================================
--- branches/rug/lib/Socialtext/Rug/Cookie.pm	2007-01-30 22:32:07 UTC (rev 1002)
+++ branches/rug/lib/Socialtext/Rug/Cookie.pm	2007-01-30 22:36:19 UTC (rev 1003)
@@ -41,9 +41,20 @@
     return $CookieClass->new( $req, @_ );
 }
 
+=head2 fetch($r, $cookie)
+
+We must have a request object passed in, although mod_perl1 doesn't
+use it.  If we're under mod_perl, we'll throw the $r away.
+
+=cut
+
 sub fetch {
     shift;
 
+    if ( $api eq 'mod_perl1' ) {
+        shift; # Remove the unused $r passed in
+    }
+
     return $CookieClass->fetch(@_);
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.