# New Ticket Created by "Paul Cochrane" # Please include the string: [perl #40349] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40349 >
Hi, This is a patch to (attempt to) close the Cage Cleaner's RT ticket #40278. The files affected by this patch are: ./tools/build/ops2pm.pl ./tools/build/ops2c.pl ./tools/build/pbc2c.pl ./tools/build/c2str.pl ./tools/build/fingerprint_c.pl ./tools/build/jit2c.pl ./tools/build/pmc2c.pl ./tools/build/parrot_config_c.pl ./tools/build/revision_c.pl ./tools/build/list_unjitted.pl ./tools/build/nativecall.pl ./tools/build/vtable_h.pl ./tools/build/vtable_extend.pl ./tools/build/addopstags.pl ./tools/build/headerize.pl ./tools/build/dynpmc.pl ./tools/build/dynoplibs.pl ./tools/docs/pod_errors.pl ./tools/docs/write_docs.pl ./tools/util/smokeserv-client.pl ./tools/util/ncidef2pasm.pl ./tools/util/smokeserv-server.pl ./tools/util/pirtidy.pl ./tools/dev/parrot_coverage.pl ./tools/dev/run_indent.pl ./tools/dev/parrotbench.pl ./tools/dev/nm.pl ./tools/dev/pbc_header.pl ./tools/dev/lib_deps.pl ./tools/dev/gen_charset_tables.pl ./tools/dev/mk_manifests.pl ./tools/dev/manicheck.pl ./tools/dev/symlink.pl ./tools/dev/gen_manifest_skip.pl ./tools/dev/mk_inno.pl ./tools/dev/as2c.pl ./tools/dev/ops_not_tested.pl ./tools/dev/install_files.pl ./tools/dev/rebuild_miniparrot.pl ./tools/dev/gen_class.pl ./tools/dev/parrot_api.pl ./tools/dev/extract_file_descriptions.pl ./tools/dev/check_source_standards.pl ./tools/dev/cc_flags.pl ./tools/dev/mk_manifest_and_skip.pl ./editor/kate_syntax.pl ./editor/ops2vim.pl ./compilers/imcc/rebuild.pl ./languages/m4/tools/frozen2yaml.pl ./languages/m4/tools/scrutinize.pl ./languages/python/pie-thon.pl ./languages/BASIC/interpreter/basic.pl ./languages/BASIC/compiler/compile.pl ./languages/BASIC/compiler/testsuite.pl ./languages/BASIC/compiler/testrun.pl ./languages/lua/luac.pl ./languages/dotnet/build/translator.pl ./languages/dotnet/build/builtins.pl ./languages/dotnet/tools/fail_analysis.pl ./languages/dotnet/tools/benchmark.pl ./languages/dotnet/tools/analysis_latex.pl ./languages/dotnet/tools/analysis.pl ./languages/dotnet/Configure.pl ./languages/tcl/tools/tcl_harness.pl ./languages/tcl/tools/gen_inline.pl ./languages/tcl/tools/tcl_test.pl ./languages/tcl/tools/gen_builtins.pl ./languages/WMLScript/build/translator.pl ./languages/WMLScript/build/stdlibs.pl ./languages/urm/urm-old.pl ./languages/regex/regex.pl ./languages/regex/test.pl ./languages/converter.pl ./languages/APL/tools/gen_operator_defs.pl ./languages/plumhead/plumhead.pl ./languages/plumhead/Configure.pl ./examples/benchmarks/overload.pl ./examples/benchmarks/mops.pl ./examples/benchmarks/freeze.pl ./examples/benchmarks/oo3.pl ./examples/benchmarks/oo2.pl ./examples/benchmarks/fib.pl ./examples/benchmarks/oo6.pl ./examples/benchmarks/primes2.pl ./examples/benchmarks/oo1.pl ./examples/benchmarks/shared_ref.pl ./examples/benchmarks/primes.pl ./examples/benchmarks/oo5.pl ./examples/benchmarks/stress2.pl ./examples/benchmarks/arriter.pl ./examples/benchmarks/stress.pl ./examples/benchmarks/addit.pl ./examples/benchmarks/stress1.pl ./examples/benchmarks/oofib.pl ./examples/benchmarks/oo4.pl ./examples/benchmarks/vpm.pl ./examples/mops/mops.pl ./Configure.pl The patch was generated with respect to the parrot svn revision 14642. Hope this helps! Regards, Paul
Index: tools/build/jit2c.pl =================================================================== --- tools/build/jit2c.pl (revision 14642) +++ tools/build/jit2c.pl (working copy) @@ -463,3 +463,10 @@ return(($ptr eq '&' ? '&' : '') . sprintf($argmaps{$type_to_arg{$type}}, $index)); } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/ops2pm.pl =================================================================== --- tools/build/ops2pm.pl (revision 14642) +++ tools/build/ops2pm.pl (working copy) @@ -421,4 +421,9 @@ exit 0; +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: # vim: expandtab shiftwidth=4: Index: tools/build/list_unjitted.pl =================================================================== --- tools/build/list_unjitted.pl (revision 14642) +++ tools/build/list_unjitted.pl (working copy) @@ -52,3 +52,10 @@ print 'Not jitted: ', scalar @not_jitted; print 'Jitted: ', scalar @jitted; print 'Total ops: ', scalar @ops; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/nativecall.pl =================================================================== --- tools/build/nativecall.pl (revision 14642) +++ tools/build/nativecall.pl (working copy) @@ -719,3 +719,10 @@ } =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/vtable_h.pl =================================================================== --- tools/build/vtable_h.pl (revision 14642) +++ tools/build/vtable_h.pl (working copy) @@ -63,3 +63,10 @@ print OUT "\n#endif\n"; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/vtable_extend.pl =================================================================== --- tools/build/vtable_extend.pl (revision 14642) +++ tools/build/vtable_extend.pl (working copy) @@ -142,3 +142,10 @@ EOF close OUT or die $!; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/ops2c.pl =================================================================== --- tools/build/ops2c.pl (revision 14642) +++ tools/build/ops2c.pl (working copy) @@ -730,3 +730,10 @@ rename $source, $final; exit 0; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/pbc2c.pl =================================================================== --- tools/build/pbc2c.pl (revision 14642) +++ tools/build/pbc2c.pl (working copy) @@ -369,3 +369,10 @@ as the Parrot interpreter. =end ADDITIONAL + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/fingerprint_c.pl =================================================================== --- tools/build/fingerprint_c.pl (revision 14642) +++ tools/build/fingerprint_c.pl (working copy) @@ -95,3 +95,10 @@ EOF } # endif DEVELOPING + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/addopstags.pl =================================================================== --- tools/build/addopstags.pl (revision 14642) +++ tools/build/addopstags.pl (working copy) @@ -41,3 +41,9 @@ print T sort @tags; close T; +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/c2str.pl =================================================================== --- tools/build/c2str.pl (revision 14642) +++ tools/build/c2str.pl (working copy) @@ -251,3 +251,10 @@ } =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/parrot_config_c.pl =================================================================== --- tools/build/parrot_config_c.pl (revision 14642) +++ tools/build/parrot_config_c.pl (working copy) @@ -102,3 +102,10 @@ Parrot_set_config_hash_internal(parrot_config, sizeof(parrot_config)); } EOF + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/revision_c.pl =================================================================== --- tools/build/revision_c.pl (revision 14642) +++ tools/build/revision_c.pl (working copy) @@ -51,3 +51,10 @@ } EOF + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/build/headerize.pl =================================================================== --- tools/build/headerize.pl (revision 14642) +++ tools/build/headerize.pl (working copy) @@ -236,4 +236,9 @@ } # for %files } +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: # vim: expandtab shiftwidth=4: Index: tools/build/pmc2c.pl =================================================================== --- tools/build/pmc2c.pl (revision 14642) +++ tools/build/pmc2c.pl (working copy) @@ -959,4 +959,9 @@ } } +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: # vim: expandtab shiftwidth=4: Index: tools/docs/pod_errors.pl =================================================================== --- tools/docs/pod_errors.pl (revision 14642) +++ tools/docs/pod_errors.pl (working copy) @@ -42,3 +42,10 @@ } exit 0; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/docs/write_docs.pl =================================================================== --- tools/docs/write_docs.pl (revision 14642) +++ tools/docs/write_docs.pl (working copy) @@ -31,3 +31,10 @@ $docs->write_docs($silent, $delete); exit 0; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/util/smokeserv-client.pl =================================================================== --- tools/util/smokeserv-client.pl (revision 14642) +++ tools/util/smokeserv-client.pl (working copy) @@ -97,3 +97,10 @@ eval { require Compress::Zlib; debug "Gzip compression on\n" } and $compress = sub { Compress::Zlib::memGzip(shift) }; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/util/ncidef2pasm.pl =================================================================== --- tools/util/ncidef2pasm.pl (revision 14642) +++ tools/util/ncidef2pasm.pl (working copy) @@ -219,3 +219,10 @@ print OUTPUT "dlfunc P2, P1, '$name', '$signature'\n"; print OUTPUT "store_global '${cur_package}::${name}', P2\n"; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/util/smokeserv-server.pl =================================================================== --- tools/util/smokeserv-server.pl (revision 14642) +++ tools/util/smokeserv-server.pl (working copy) @@ -510,3 +510,10 @@ </table> </body> </html> + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/util/pirtidy.pl =================================================================== --- tools/util/pirtidy.pl (revision 14642) +++ tools/util/pirtidy.pl (working copy) @@ -66,3 +66,10 @@ =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/mk_manifest_and_skip.pl =================================================================== --- tools/dev/mk_manifest_and_skip.pl (revision 14642) +++ tools/dev/mk_manifest_and_skip.pl (working copy) @@ -175,3 +175,10 @@ close $MANI; close $SKIP; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/parrotbench.pl =================================================================== --- tools/dev/parrotbench.pl (revision 14642) +++ tools/dev/parrotbench.pl (working copy) @@ -262,3 +262,10 @@ $_[0] = $_[1] and return if ! defined $_[0]; $_[0] = $_[1] if $_[1] > $_[0]; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/nm.pl =================================================================== --- tools/dev/nm.pl (revision 14642) +++ tools/dev/nm.pl (working copy) @@ -417,3 +417,10 @@ =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/pbc_header.pl =================================================================== --- tools/dev/pbc_header.pl (revision 14642) +++ tools/dev/pbc_header.pl (working copy) @@ -94,3 +94,10 @@ pbc_info; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/mk_manifests.pl =================================================================== --- tools/dev/mk_manifests.pl (revision 14642) +++ tools/dev/mk_manifests.pl (working copy) @@ -116,3 +116,10 @@ close MANIFEST; print "Wrote $manifest\n"; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/lib_deps.pl =================================================================== --- tools/dev/lib_deps.pl (revision 14642) +++ tools/dev/lib_deps.pl (working copy) @@ -624,3 +624,10 @@ vsscanf stdio.h UNDEF assert.h UNDEF stdarg.h + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/parrot_coverage.pl =================================================================== --- tools/dev/parrot_coverage.pl (revision 14642) +++ tools/dev/parrot_coverage.pl (working copy) @@ -429,3 +429,10 @@ "<hr noshade><i>Last Updated: @{[ scalar(localtime) . strftime(' (%Z)', localtime(time)) ]} </i> </body></html>"; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/symlink.pl =================================================================== --- tools/dev/symlink.pl (revision 14642) +++ tools/dev/symlink.pl (working copy) @@ -106,3 +106,10 @@ exit(0); + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/rebuild_miniparrot.pl =================================================================== --- tools/dev/rebuild_miniparrot.pl (revision 14642) +++ tools/dev/rebuild_miniparrot.pl (working copy) @@ -159,3 +159,10 @@ copy($from, $to); } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/mk_inno.pl =================================================================== --- tools/dev/mk_inno.pl (revision 14642) +++ tools/dev/mk_inno.pl (working copy) @@ -98,3 +98,10 @@ close $OUT; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/parrot_api.pl =================================================================== --- tools/dev/parrot_api.pl (revision 14642) +++ tools/dev/parrot_api.pl (working copy) @@ -262,3 +262,10 @@ } exit(0); + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/cc_flags.pl =================================================================== --- tools/dev/cc_flags.pl (revision 14642) +++ tools/dev/cc_flags.pl (working copy) @@ -113,3 +113,10 @@ print "$cfile\n"; } exit system(@ARGV)/256; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/run_indent.pl =================================================================== --- tools/dev/run_indent.pl (revision 14642) +++ tools/dev/run_indent.pl (working copy) @@ -136,3 +136,10 @@ } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/gen_charset_tables.pl =================================================================== --- tools/dev/gen_charset_tables.pl (revision 14642) +++ tools/dev/gen_charset_tables.pl (working copy) @@ -148,3 +148,10 @@ } print "#endif /* PARROT_CHARSET_TABLES_H_GUARD */\n"; close STDOUT; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/manicheck.pl =================================================================== --- tools/dev/manicheck.pl (revision 14642) +++ tools/dev/manicheck.pl (working copy) @@ -65,3 +65,10 @@ } exit scalar(@missing) or scalar(@extra) ? 1 : 0; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/gen_manifest_skip.pl =================================================================== --- tools/dev/gen_manifest_skip.pl (revision 14642) +++ tools/dev/gen_manifest_skip.pl (working copy) @@ -55,3 +55,10 @@ Bernhard Schmalhofer - <[EMAIL PROTECTED]> =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/as2c.pl =================================================================== --- tools/dev/as2c.pl (revision 14642) +++ tools/dev/as2c.pl (working copy) @@ -93,3 +93,10 @@ } close IN; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/install_files.pl =================================================================== --- tools/dev/install_files.pl (revision 14642) +++ tools/dev/install_files.pl (working copy) @@ -238,3 +238,10 @@ my $mode = (stat($src))[2]; chmod $mode, $dest; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/ops_not_tested.pl =================================================================== --- tools/dev/ops_not_tested.pl (revision 14642) +++ tools/dev/ops_not_tested.pl (working copy) @@ -84,4 +84,9 @@ . " are not tested! (" . int($percent) . "%)\n"; -## vim: expandtab sw=4 +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/gen_class.pl =================================================================== --- tools/dev/gen_class.pl (revision 14642) +++ tools/dev/gen_class.pl (working copy) @@ -80,3 +80,10 @@ ## emit file footer print "}\n"; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/extract_file_descriptions.pl =================================================================== --- tools/dev/extract_file_descriptions.pl (revision 14642) +++ tools/dev/extract_file_descriptions.pl (working copy) @@ -247,3 +247,10 @@ if $_[0] =~ tr/\n/\n/ > $cnt; return undef; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: tools/dev/check_source_standards.pl =================================================================== --- tools/dev/check_source_standards.pl (revision 14642) +++ tools/dev/check_source_standards.pl (working copy) @@ -465,3 +465,10 @@ print "$file:$line (ERROR) " . Text::Wrap::wrap("", " ", $message) . "\n"; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: editor/kate_syntax.pl =================================================================== --- editor/kate_syntax.pl (revision 14642) +++ editor/kate_syntax.pl (working copy) @@ -212,3 +212,10 @@ </language> END + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: editor/ops2vim.pl =================================================================== --- editor/ops2vim.pl (revision 14642) +++ editor/ops2vim.pl (working copy) @@ -28,3 +28,10 @@ ### print "$cline\n"; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: Configure.pl =================================================================== --- Configure.pl (revision 14642) +++ Configure.pl (working copy) @@ -517,3 +517,10 @@ END exit(0); + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: compilers/imcc/rebuild.pl =================================================================== --- compilers/imcc/rebuild.pl (revision 14642) +++ compilers/imcc/rebuild.pl (working copy) @@ -83,3 +83,10 @@ } exit 0; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/m4/tools/frozen2yaml.pl =================================================================== --- languages/m4/tools/frozen2yaml.pl (revision 14642) +++ languages/m4/tools/frozen2yaml.pl (working copy) @@ -109,3 +109,10 @@ =head1 AUTHOR =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/m4/tools/scrutinize.pl =================================================================== --- languages/m4/tools/scrutinize.pl (revision 14642) +++ languages/m4/tools/scrutinize.pl (working copy) @@ -30,3 +30,10 @@ use Test::Perl::Critic -profile => 'tools/perlcriticrc'; all_critic_ok(); + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/python/pie-thon.pl =================================================================== --- languages/python/pie-thon.pl (revision 14642) +++ languages/python/pie-thon.pl (working copy) @@ -1966,4 +1966,9 @@ $code_l++; } -# vim: sw=4 tw=70: +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/plumhead/plumhead.pl =================================================================== --- languages/plumhead/plumhead.pl (revision 14642) +++ languages/plumhead/plumhead.pl (working copy) @@ -53,3 +53,10 @@ =head1 AUTHOR =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/plumhead/Configure.pl =================================================================== --- languages/plumhead/Configure.pl (revision 14642) +++ languages/plumhead/Configure.pl (working copy) @@ -11,3 +11,10 @@ Hi, I'm Configure.pl. Currently I'm doing nothing. END_TEXT + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/urm/urm-old.pl =================================================================== --- languages/urm/urm-old.pl (revision 14642) +++ languages/urm/urm-old.pl (working copy) @@ -72,3 +72,10 @@ print "Output: $register{$outreg}\n"; #print Dumper %register; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/regex/regex.pl =================================================================== --- languages/regex/regex.pl (revision 14642) +++ languages/regex/regex.pl (working copy) @@ -106,3 +106,10 @@ } $driver->output_footer(*OUTPUT); + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/regex/test.pl =================================================================== --- languages/regex/test.pl (revision 14642) +++ languages/regex/test.pl (working copy) @@ -190,3 +190,10 @@ return 0; } } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/APL/tools/gen_operator_defs.pl =================================================================== --- languages/APL/tools/gen_operator_defs.pl (revision 14642) +++ languages/APL/tools/gen_operator_defs.pl (working copy) @@ -841,3 +841,10 @@ =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/converter.pl =================================================================== --- languages/converter.pl (revision 14642) +++ languages/converter.pl (working copy) @@ -125,3 +125,10 @@ for(@rules) { print$parser->rule($_) . "\n\n"; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/BASIC/interpreter/basic.pl =================================================================== --- languages/BASIC/interpreter/basic.pl (revision 14642) +++ languages/BASIC/interpreter/basic.pl (working copy) @@ -111,3 +111,10 @@ unlink "basic.pbc"; system("../../../parrot -o basic.pbc merged_basic.pasm"); system("../../../parrot basic.pbc"); + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/BASIC/compiler/compile.pl =================================================================== --- languages/BASIC/compiler/compile.pl (revision 14642) +++ languages/BASIC/compiler/compile.pl (working copy) @@ -225,3 +225,10 @@ print "This is the default program. Say 'compile filename.bas' to compile" print " a BASIC program" + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/BASIC/compiler/testsuite.pl =================================================================== --- languages/BASIC/compiler/testsuite.pl (revision 14642) +++ languages/BASIC/compiler/testsuite.pl (working copy) @@ -1448,3 +1448,10 @@ end select print "All done." + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/BASIC/compiler/testrun.pl =================================================================== --- languages/BASIC/compiler/testrun.pl (revision 14642) +++ languages/BASIC/compiler/testrun.pl (working copy) @@ -9,3 +9,10 @@ # XXX - This file should be generated at config time, so as to get # the appropriate path and executable name. $a=system("$parpath/parrot TARG_test.pir"); + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/lua/luac.pl =================================================================== --- languages/lua/luac.pl (revision 14642) +++ languages/lua/luac.pl (working copy) @@ -75,3 +75,10 @@ =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/tcl/tools/tcl_harness.pl =================================================================== --- languages/tcl/tools/tcl_harness.pl (revision 14642) +++ languages/tcl/tools/tcl_harness.pl (working copy) @@ -83,8 +83,8 @@ print "(-clock ($clock_skipped) -deprecated ($deprecated))\n"; # Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# fill-column: 100 +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 # End: # vim: expandtab shiftwidth=4: Index: languages/WMLScript/build/translator.pl =================================================================== --- languages/WMLScript/build/translator.pl (revision 14642) +++ languages/WMLScript/build/translator.pl (working copy) @@ -951,3 +951,10 @@ } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/WMLScript/build/stdlibs.pl =================================================================== --- languages/WMLScript/build/stdlibs.pl (revision 14642) +++ languages/WMLScript/build/stdlibs.pl (working copy) @@ -128,3 +128,10 @@ } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/dotnet/build/translator.pl =================================================================== --- languages/dotnet/build/translator.pl (revision 14642) +++ languages/dotnet/build/translator.pl (working copy) @@ -1388,3 +1388,10 @@ } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/dotnet/build/builtins.pl =================================================================== --- languages/dotnet/build/builtins.pl (revision 14642) +++ languages/dotnet/build/builtins.pl (working copy) @@ -205,3 +205,10 @@ exit(1); } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/dotnet/tools/benchmark.pl =================================================================== --- languages/dotnet/tools/benchmark.pl (revision 14642) +++ languages/dotnet/tools/benchmark.pl (working copy) @@ -22,3 +22,10 @@ print "AVERAGE: $av\n\n"; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/dotnet/tools/fail_analysis.pl =================================================================== --- languages/dotnet/tools/fail_analysis.pl (revision 14642) +++ languages/dotnet/tools/fail_analysis.pl (working copy) @@ -18,3 +18,10 @@ print "$_ & $res{$_} \\\\\n" foreach keys %res; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/dotnet/tools/analysis_latex.pl =================================================================== --- languages/dotnet/tools/analysis_latex.pl (revision 14642) +++ languages/dotnet/tools/analysis_latex.pl (working copy) @@ -28,3 +28,10 @@ my $percent = int(($done / $total) * 100); print "\\hline\nSummary & $done & $total & $percent\\% \\\\\n"; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/dotnet/tools/analysis.pl =================================================================== --- languages/dotnet/tools/analysis.pl (revision 14642) +++ languages/dotnet/tools/analysis.pl (working copy) @@ -32,3 +32,10 @@ print $done . (' ' x (10 - length($done))); print $total . (' ' x (10 - length($total))); print "$percent%\n" + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: languages/dotnet/Configure.pl =================================================================== --- languages/dotnet/Configure.pl (revision 14642) +++ languages/dotnet/Configure.pl (working copy) @@ -164,3 +164,10 @@ return "\techo Oops, I was not configured with the path to Mono class library.\n"; } } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/overload.pl =================================================================== --- examples/benchmarks/overload.pl (revision 14642) +++ examples/benchmarks/overload.pl (working copy) @@ -20,3 +20,10 @@ my $r; for my $i (1..500_000) { $r = $a * $b } print "$r\n"; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/mops.pl =================================================================== --- examples/benchmarks/mops.pl (revision 14642) +++ examples/benchmarks/mops.pl (working copy) @@ -90,3 +90,10 @@ F<examples/mops/mops.scheme>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/freeze.pl =================================================================== --- examples/benchmarks/freeze.pl (revision 14642) +++ examples/benchmarks/freeze.pl (working copy) @@ -53,3 +53,10 @@ F<examples/benchmarks/freeze.pasm>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/oo3.pl =================================================================== --- examples/benchmarks/oo3.pl (revision 14642) +++ examples/benchmarks/oo3.pl (working copy) @@ -16,3 +16,10 @@ } 1; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/oo2.pl =================================================================== --- examples/benchmarks/oo2.pl (revision 14642) +++ examples/benchmarks/oo2.pl (working copy) @@ -14,3 +14,10 @@ return bless [ 10, 20 ], $self; } 1; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/fib.pl =================================================================== --- examples/benchmarks/fib.pl (revision 14642) +++ examples/benchmarks/fib.pl (working copy) @@ -33,3 +33,10 @@ F<examples/benchmarks/fib.pir>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/oo6.pl =================================================================== --- examples/benchmarks/oo6.pl (revision 14642) +++ examples/benchmarks/oo6.pl (working copy) @@ -26,3 +26,10 @@ } 1; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/primes2.pl =================================================================== --- examples/benchmarks/primes2.pl (revision 14642) +++ examples/benchmarks/primes2.pl (working copy) @@ -33,3 +33,10 @@ } return 1; } + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/oo1.pl =================================================================== --- examples/benchmarks/oo1.pl (revision 14642) +++ examples/benchmarks/oo1.pl (working copy) @@ -14,3 +14,10 @@ return bless [ 10, 20 ], $self; } 1; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/primes.pl =================================================================== --- examples/benchmarks/primes.pl (revision 14642) +++ examples/benchmarks/primes.pl (working copy) @@ -56,3 +56,10 @@ =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/shared_ref.pl =================================================================== --- examples/benchmarks/shared_ref.pl (revision 14642) +++ examples/benchmarks/shared_ref.pl (working copy) @@ -32,3 +32,10 @@ F<examples/benchmarks/shared_ref.pasm>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/oo5.pl =================================================================== --- examples/benchmarks/oo5.pl (revision 14642) +++ examples/benchmarks/oo5.pl (working copy) @@ -26,3 +26,10 @@ } 1; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/stress2.pl =================================================================== --- examples/benchmarks/stress2.pl (revision 14642) +++ examples/benchmarks/stress2.pl (working copy) @@ -40,3 +40,10 @@ F<examples/benchmarks/stress3.pasm>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/arriter.pl =================================================================== --- examples/benchmarks/arriter.pl (revision 14642) +++ examples/benchmarks/arriter.pl (working copy) @@ -66,3 +66,10 @@ F<examples/benchmarks/arriter_o1.pir>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/stress.pl =================================================================== --- examples/benchmarks/stress.pl (revision 14642) +++ examples/benchmarks/stress.pl (working copy) @@ -48,3 +48,10 @@ F<examples/benchmarks/stress3.pasm>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/addit.pl =================================================================== --- examples/benchmarks/addit.pl (revision 14642) +++ examples/benchmarks/addit.pl (working copy) @@ -44,3 +44,10 @@ F<examples/benchmarks/addit2.pir>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/oofib.pl =================================================================== --- examples/benchmarks/oofib.pl (revision 14642) +++ examples/benchmarks/oofib.pl (working copy) @@ -31,3 +31,10 @@ print "fib($N) = ", $b->fib($N), "\n"; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/oo4.pl =================================================================== --- examples/benchmarks/oo4.pl (revision 14642) +++ examples/benchmarks/oo4.pl (working copy) @@ -16,3 +16,10 @@ } 1; + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/vpm.pl =================================================================== --- examples/benchmarks/vpm.pl (revision 14642) +++ examples/benchmarks/vpm.pl (working copy) @@ -20,3 +20,10 @@ + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/benchmarks/stress1.pl =================================================================== --- examples/benchmarks/stress1.pl (revision 14642) +++ examples/benchmarks/stress1.pl (working copy) @@ -51,3 +51,10 @@ F<examples/benchmarks/stress3.pasm>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: Index: examples/mops/mops.pl =================================================================== --- examples/mops/mops.pl (revision 14642) +++ examples/mops/mops.pl (working copy) @@ -90,3 +90,10 @@ F<examples/mops/mops.scheme>. =cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: