This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Opcode.pm: wrap long pod lines
authorFather Chrysostomos <sprout@cpan.org>
Sun, 26 Aug 2012 19:34:43 +0000 (12:34 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 26 Aug 2012 20:16:55 +0000 (13:16 -0700)
ext/Opcode/Opcode.pm
t/porting/known_pod_issues.dat

index 8ff5b3f..27192ec 100644 (file)
@@ -65,7 +65,7 @@ sub _init_optags {
 
        # Split into lines, keep only indented lines
        my @lines = grep { m/^\s/    } split(/\n/);
-       foreach (@lines) { s/--.*//  } # delete comments
+       foreach (@lines) { s/(?:\t|--).*//  } # delete comments
        my @ops   = map  { split ' ' } @lines; # get op words
 
        foreach(@ops) {
@@ -288,8 +288,8 @@ invert_opset function.
 
 =head1 TO DO (maybe)
 
-    $bool = opset_eq($opset1, $opset2) true if opsets are logically eqiv
-
+    $bool = opset_eq($opset1, $opset2) true if opsets are logically
+                                       equivalent
     $yes = opset_can($opset, @ops)     true if $opset has all @ops set
 
     @diff = opset_diff($opset1, $opset2) => ('foo', '!bar', ...)
@@ -310,12 +310,12 @@ invert_opset function.
 
     rv2av aassign aelem aelemfast aelemfast_lex aslice av2arylen
 
-    rv2hv helem hslice each values keys exists delete aeach akeys avalues
-    reach rvalues rkeys
+    rv2hv helem hslice each values keys exists delete aeach akeys
+    avalues reach rvalues rkeys
 
-    preinc i_preinc predec i_predec postinc i_postinc postdec i_postdec
-    int hex oct abs pow multiply i_multiply divide i_divide
-    modulo i_modulo add i_add subtract i_subtract
+    preinc i_preinc predec i_predec postinc i_postinc
+    postdec i_postdec int hex oct abs pow multiply i_multiply
+    divide i_divide modulo i_modulo add i_add subtract i_subtract
 
     left_shift right_shift bit_and bit_xor bit_or negate i_negate
     not complement
@@ -325,7 +325,8 @@ invert_opset function.
 
     substr vec stringify study pos length index rindex ord chr
 
-    ucfirst lcfirst uc lc fc quotemeta trans transr chop schop chomp schomp
+    ucfirst lcfirst uc lc fc quotemeta trans transr chop schop
+    chomp schomp
 
     match split qr
 
@@ -337,9 +338,11 @@ invert_opset function.
 
     rv2cv anoncode prototype coreargs
 
-    entersub leavesub leavesublv return method method_named -- XXX loops via recursion?
+    entersub leavesub leavesublv return method method_named
+     -- XXX loops via recursion?
 
-    leaveeval -- needed for Safe to operate, is safe without entereval
+    leaveeval -- needed for Safe to operate, is safe
+                without entereval
 
 =item :base_mem
 
@@ -400,7 +403,8 @@ These are a hotchpotch of opcodes still waiting to be considered
 
     rv2gv refgen srefgen ref
 
-    bless -- could be used to change ownership of objects (reblessing)
+    bless -- could be used to change ownership of objects
+            (reblessing)
 
     pushre regcmaybe regcreset regcomp subst substcont
 
@@ -414,7 +418,8 @@ These are a hotchpotch of opcodes still waiting to be considered
     sselect select
     pipe_op sockpair
 
-    getppid getpgrp setpgrp getpriority setpriority localtime gmtime
+    getppid getpgrp setpgrp getpriority setpriority
+    localtime gmtime
 
     entertry leavetry -- can be used to 'hide' fatal errors
 
@@ -460,9 +465,10 @@ then you should not rely on the definition of this, or indeed any other, optag!
 
     stat lstat readlink
 
-    ftatime ftblk ftchr ftctime ftdir fteexec fteowned fteread
-    ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned
-    ftrread ftsgid ftsize ftsock ftsuid fttty ftzero ftrwrite ftsvtx
+    ftatime ftblk ftchr ftctime ftdir fteexec fteowned
+    fteread ftewrite ftfile ftis ftlink ftmtime ftpipe
+    ftrexec ftrowned ftrread ftsgid ftsize ftsock ftsuid
+    fttty ftzero ftrwrite ftsvtx
 
     fttext ftbinary
 
@@ -506,7 +512,8 @@ information about your system but not be able to change it.
 
     utime chmod chown
 
-    fcntl -- not strictly filesys related, but possibly as dangerous?
+    fcntl -- not strictly filesys related, but possibly as
+            dangerous?
 
 =item :subprocess
 
index b1882bd..8b2a862 100644 (file)
@@ -190,7 +190,6 @@ ext/dynaloader/dynaloader.pm        Verbatim line length including indents exceeds 79 b
 ext/file-glob/glob.pm  Verbatim line length including indents exceeds 79 by    15
 ext/hash-util-fieldhash/lib/hash/util/fieldhash.pm     Verbatim line length including indents exceeds 79 by    2
 ext/i18n-langinfo/langinfo.pm  Verbatim line length including indents exceeds 79 by    1
-ext/opcode/opcode.pm   Verbatim line length including indents exceeds 79 by    10
 ext/pod-html/bin/pod2html      Pod NAME already used   1
 ext/pod-html/testdir/perlpodspec-copy.pod      Verbatim line length including indents exceeds 79 by    8
 ext/pod-html/testdir/perlvar-copy.pod  ? Should you be using L<...> instead of 3