r24837 - in /trunk/libcgi-ajax-perl: META.yml debian/changelog lib/CGI/Ajax.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Sep  6 16:39:56 2008
New Revision: 24837

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24837
Log:
New upstream release.

Modified:
    trunk/libcgi-ajax-perl/META.yml
    trunk/libcgi-ajax-perl/debian/changelog
    trunk/libcgi-ajax-perl/lib/CGI/Ajax.pm

Modified: trunk/libcgi-ajax-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-ajax-perl/META.yml?rev=24837&op=diff
==============================================================================
--- trunk/libcgi-ajax-perl/META.yml (original)
+++ trunk/libcgi-ajax-perl/META.yml Sat Sep  6 16:39:56 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                CGI-Ajax
-version:             0.703
+version:             0.706
 abstract:            CGI::Ajax
 license:             ~
 generated_by:        ExtUtils::MakeMaker version 6.36

Modified: trunk/libcgi-ajax-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-ajax-perl/debian/changelog?rev=24837&op=diff
==============================================================================
--- trunk/libcgi-ajax-perl/debian/changelog (original)
+++ trunk/libcgi-ajax-perl/debian/changelog Sat Sep  6 16:39:56 2008
@@ -1,3 +1,9 @@
+libcgi-ajax-perl (0.706-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sat, 06 Sep 2008 18:39:06 +0200
+
 libcgi-ajax-perl (0.703-1) unstable; urgency=low
 
   [ Ernesto Hernández-Novich (USB) ]

Modified: trunk/libcgi-ajax-perl/lib/CGI/Ajax.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-ajax-perl/lib/CGI/Ajax.pm?rev=24837&op=diff
==============================================================================
--- trunk/libcgi-ajax-perl/lib/CGI/Ajax.pm (original)
+++ trunk/libcgi-ajax-perl/lib/CGI/Ajax.pm Sat Sep  6 16:39:56 2008
@@ -12,7 +12,7 @@
 
     CGI::Ajax->mk_accessors(@METHODS);
 
-    $VERSION = .703;
+    $VERSION = .706;
 }
 
 ########################################### main pod documentation begin ##
@@ -462,20 +462,20 @@
 sub geturl {
     my ($self) = @_;
     my $v;
-    $v = $self->cgi()->url() if $self->cgi()->can('url');
+    $v = $self->cgi()->url() if $self->cgi()->isa('CGI');
     $v = $self->cgi()->query()->url()
       if !defined $v
-      and $self->cgi()->can('query');
+      and $self->cgi()->isa('CGI::Application');
     return $v;
 }
 
 sub remoteaddr {
     my ($self) = @_;
     my $v;
-    $v = $self->cgi()->remote_addr() if $self->cgi()->can('remote_addr');
+    $v = $self->cgi()->remote_addr() if $self->cgi()->isa('CGI');
     $v = $self->cgi()->query()->remote_addr()
       if !defined $v
-      and $self->cgi()->can('query');
+      and $self->cgi()->isa('CGI::Application');
     return $v;
 }
 
@@ -484,7 +484,7 @@
     my $cgi = $self->cgi();
     my @v   = $cgi->param($name);
     if ( @v == 1 and !defined $v[0] ) {
-        my $query = $cgi->can('query');
+        my $query = $cgi->isa('CGI::Application');
         @v = $cgi->query()->param($name) if defined $query;
     }
     if (wantarray) {
@@ -498,14 +498,14 @@
     my $cgi = $self->cgi();
     return '' if $self->skip_header;
 
-    #    return '' if  $cgi->can('header') || $cgi->can('header_type') ;
-    return '' if $cgi->can('header_type');    # from Ajax::Application
+    #    return '' if  $cgi->isa('CGI') || $cgi->isa('CGI::Application') ;
+    return '' if $cgi->isa('CGI::Application');    # from Ajax::Application
     return $cgi->header(@extra);
 }
 
 sub build_html {
     my ( $self, $cgi, $html_source, $cgi_header_extra ) = @_;
-    $self->{canQuery} = defined $cgi->can('query');    # pmg
+    $self->{canQuery} = defined $cgi->isa('CGI::Application');    # pmg
     if ( ref($cgi) =~ /CGI.*/ or $self->{canQuery} ) { # pmg
         if ( $self->DEBUG() ) {
             print STDERR "CGI::Ajax->build_html: CGI* object was received\n";
@@ -717,7 +717,7 @@
        # be configured properly.  I can't test anything but a mod_perl2
        # setup, so this prevents me from testing CGI::Lite,CGI::Simple, etc.
         if ( ref($cgi) =~ /CGI.*/
-            or ( $cgi->can('query') && $cgi->query =~ /CGI/ ) )
+            or ( $cgi->isa('CGI::Application') && $cgi->query =~ /CGI/ ) )
         {    #pmg
             if ( $self->DEBUG() ) {
                 print STDERR "cgiobj() received a CGI-like object ($cgi)\n";
@@ -1337,11 +1337,10 @@
 
   significant contribution by:
       Peter Gordon <peter at pg-consultants.com> # CGI::Application + scripts
-      Kyraha  http://michael.kyraha.com/      # new getVal() to handle check
-                                              # boxes
-                                              # and name= for multiple forms
-                                              # override fname parameter name
+      Kyraha  http://michael.kyraha.com/      # getVal(), multiple forms
       Jan Franczak <jan.franczak at gmail.com>   # CACHE support
+      Shibi NS                                # use ->isa instead of ->can
+     
   others:
       RENEEB <RENEEB [...] cpan.org> 
       stefan.scherer