Return-Path: 
 <modperl-cvs-return-3401-apmail-perl-modperl-cvs-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org
Received: (qmail 72459 invoked by uid 500); 20 May 2003 01:31:51 -0000
Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:modperl-cvs-help@perl.apache.org>
list-unsubscribe: <mailto:modperl-cvs-unsubscribe@perl.apache.org>
list-post: <mailto:modperl-cvs@perl.apache.org>
Reply-To: dev@perl.apache.org
Delivered-To: mailing list modperl-cvs@perl.apache.org
Received: (qmail 72448 invoked by uid 500); 20 May 2003 01:31:51 -0000
Delivered-To: apmail-modperl-2.0-cvs@apache.org
Date: 20 May 2003 01:31:50 -0000
Message-ID: <20030520013150.35845.qmail@icarus.apache.org>
From: stas@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/lib/ModPerl Code.pm
X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N

stas        2003/05/19 18:31:50

  Modified:    lib/ModPerl Code.pm
  Log:
  must escape $class\::
  
  Revision  Changes    Path
  1.100     +2 -2      modperl-2.0/lib/ModPerl/Code.pm
  
  Index: Code.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
  retrieving revision 1.99
  retrieving revision 1.100
  diff -u -r1.99 -r1.100
  --- Code.pm	20 May 2003 01:30:48 -0000	1.99
  +++ Code.pm	20 May 2003 01:31:49 -0000	1.100
  @@ -832,7 +832,7 @@
   
       print $c_fh <<EOF
       };
  -    Perl_croak(aTHX_ "unknown $class:: constant %s", name);
  +    Perl_croak(aTHX_ "unknown $class\:: constant %s", name);
       return newSViv(MP_ENOCONST);
   }
   EOF
  @@ -898,7 +898,7 @@
   
       print $c_fh <<EOF;
       };
  -    Perl_croak_nocontext("unknown $class:: group `%s'", name);
  +    Perl_croak_nocontext("unknown $class\:: group `%s'", name);
       return NULL;
   }
   EOF