[Catalyst-commits] r14510 - CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2014-03-07 21:57:44 +0000 (Fri, 07 Mar 2014)
New Revision: 14510

Modified:
   CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm
Log:
quiet undef warning

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm	2014-02-28 22:55:27 UTC (rev 14509)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm	2014-03-07 21:57:44 UTC (rev 14510)
@@ -264,8 +264,12 @@
     my $rpc = shift @arg;
 
     my $http_method = $self->req_method($c);
-    $c->log->debug("rest OID:$oid  rpc:$rpc  http:$http_method")
-        if $c->debug;
+    $c->log->debug(
+        sprintf(
+            "rest OID:%s  rpc:%s  http:%s",
+            $oid, ( $rpc || '[undef]' ), $http_method
+        )
+    ) if $c->debug;
 
     if ( length $oid and $rpc ) {
         if ( $self->enable_rpc_compat and exists $rpc_methods{$rpc} ) {