From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 12 May 1999 11:07:44 +0000 (+0000)
Subject: typo in change#3397
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6393042b638dafd3170a8887f72b5494a43267f1;p=p5sagit%2Fp5-mst-13.2.git

typo in change#3397

p4raw-link: @3397 on //depot/perl: aa854799af20b80973df4e295167b2fda1fc7a9c

p4raw-id: //depot/perl@3404
---

diff --git a/doop.c b/doop.c
index 0142710..4e5866e 100644
--- a/doop.c
+++ b/doop.c
@@ -789,7 +789,7 @@ do_chop(register SV *astr, register SV *sv)
         return;
     }
     else if (SvREADONLY(sv))
-	croak(no_modify);
+	croak(PL_no_modify);
     s = SvPV(sv, len);
     if (len && !SvPOK(sv))
 	s = SvPV_force(sv, len);
@@ -858,7 +858,7 @@ do_chomp(register SV *sv)
         return count;
     }
     else if (SvREADONLY(sv))
-	croak(no_modify);
+	croak(PL_no_modify);
     s = SvPV(sv, len);
     if (len && !SvPOKp(sv))
 	s = SvPV_force(sv, len);