This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
doop.c: Comment, white-space only
authorKarl Williamson <khw@cpan.org>
Sun, 9 Aug 2020 04:19:05 +0000 (22:19 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 9 Aug 2020 04:21:50 +0000 (22:21 -0600)
This removes an obsolete comment

doop.c

diff --git a/doop.c b/doop.c
index c9c9532..822ad3c 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -728,7 +728,6 @@ Perl_do_sprintf(pTHX_ SV *sv, SSize_t len, SV **sarg)
        SvTAINTED_on(sv);
 }
 
-/* currently converts input to bytes if possible, but doesn't sweat failure */
 UV
 Perl_do_vecget(pTHX_ SV *sv, STRLEN offset, int size)
 {
@@ -754,7 +753,8 @@ Perl_do_vecget(pTHX_ SV *sv, STRLEN offset, int size)
             s = (unsigned char *) SvPV_flags(sv, srclen, svpv_flags);
         }
         else {
-               Perl_croak(aTHX_ "Use of strings with code points over 0xFF as arguments to vec is forbidden");
+            Perl_croak(aTHX_ "Use of strings with code points over 0xFF"
+                             " as arguments to vec is forbidden");
         }
     }