[perl #24341] [PATCH] classes/null.pl was trying to return 0 from a void function.

[via RT]

# New Ticket Created by  Andy Dougherty 
# Please include the string:  [perl #24341]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=24341 >


The new classes/null.pl was trying to return 0 from a void function.  The
problem is that the $retval was being matched against /void /, but the
trailing space had already been stripped off.

The following patch fixes it.

--- parrot-current/classes/null.pl      Mon Oct 27 22:07:49 2003
+++ parrot-andy/classes/null.pl Tue Oct 28 13:41:48 2003
@@ -50,7 +50,7 @@

     print "    $retval $methname ($args) {\n";
        print "        internal_exception(NULL_REG_ACCESS, \"Fatal exception: Null PMC 
access (PMC::$methname)!\\n\");\n";
-    if($retval !~ /void /) {
+    if($retval ne 'void') {
         print "        return ($retval)0;\n";
     }
     print "    }\n\n";

-- 
    Andy Dougherty              [EMAIL PROTECTED]