Permalink
Browse files

#39826: [CAGE] convert C<perl -w> to C<use warnings;>

applied to non-language dirs
Courtesy of swaroopch@gmail.com

git-svn-id: https://svn.parrot.org/parrot/trunk@13505 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent e8725fd commit 3ace369acc407bc254f573cbd6f3d209212f2271 @particle particle committed Jul 24, 2006
Showing with 149 additions and 94 deletions.
  1. +2 −2 Configure.pl
  2. +0 −6 compilers/imcc/imcc.l
  3. +1 −0 compilers/imcc/rebuild.pl
  4. +4 −1 editor/kate_syntax.pl
  5. +1 −2 languages/APL/tools/gen_operator_defs.pl
  6. +2 −1 languages/BASIC/compiler/compile.pl
  7. +2 −1 languages/BASIC/compiler/testrun.pl
  8. +5 −1 languages/BASIC/compiler/testsuite.pl
  9. +5 −1 languages/BASIC/interpreter/basic.pl
  10. +2 −1 languages/WMLScript/build/stdlibs.pl
  11. +2 −1 languages/WMLScript/build/translator.pl
  12. +2 −1 languages/converter.pl
  13. +2 −1 languages/dotnet/build/builtins.pl
  14. +2 −1 languages/dotnet/build/translator.pl
  15. +2 −1 languages/dotnet/tools/analysis.pl
  16. +2 −1 languages/dotnet/tools/analysis_latex.pl
  17. +5 −1 languages/dotnet/tools/fail_analysis.pl
  18. +2 −4 languages/lua/luac.pl
  19. +2 −1 languages/m4/tools/frozen2yaml.pl
  20. +1 −0 languages/m4/tools/scrutinize.pl
  21. +2 −1 languages/python/pie-thon.pl
  22. +3 −3 languages/regex/regex.pl
  23. +2 −2 languages/regex/test.pl
  24. +2 −1 languages/tcl/tools/gen_builtins.pl
  25. +2 −2 languages/tcl/tools/gen_inline.pl
  26. +1 −1 languages/tcl/tools/tcl-test.pl
  27. +1 −2 languages/tcl/tools/tcl_harness.pl
  28. +2 −2 languages/urm/urm-old.pl
  29. +0 −1 tools/build/addopstags.pl
  30. +3 −1 tools/build/c2str.pl
  31. +2 −2 tools/build/fingerprint_c.pl
  32. +2 −2 tools/build/jit2c.pl
  33. +2 −1 tools/build/list_unjitted.pl
  34. +2 −1 tools/build/ops2c.pl
  35. +2 −1 tools/build/ops2pm.pl
  36. +3 −1 tools/build/parrot_config_c.pl
  37. +2 −1 tools/build/pbc2c.pl
  38. +1 −1 tools/build/pmc2c.pl
  39. +1 −0 tools/build/revision_c.pl
  40. +1 −1 tools/build/vtable_extend.pl
  41. +4 −1 tools/build/vtable_h.pl
  42. +3 −2 tools/dev/as2c.pl
  43. +2 −1 tools/dev/cc_flags.pl
  44. +1 −1 tools/dev/check_source_standards.pl
  45. +3 −2 tools/dev/extract_file_descriptions.pl
  46. +1 −1 tools/dev/gen_charset_tables.pl
  47. +2 −1 tools/dev/gen_manifest_skip.pl
  48. +3 −2 tools/dev/install_files.pl
  49. +2 −1 tools/dev/lib_deps.pl
  50. +2 −1 tools/dev/manicheck.pl
  51. +2 −1 tools/dev/mk_inno.pl
  52. +1 −2 tools/dev/mk_manifest_and_skip.pl
  53. +4 −1 tools/dev/mk_manifests.pl
  54. +2 −1 tools/dev/nm.pl
  55. +2 −1 tools/dev/parrot_api.pl
  56. +2 −0 tools/dev/parrot_coverage.pl
  57. +2 −2 tools/dev/parrotbench.pl
  58. +2 −1 tools/dev/pbc_header.pl
  59. +2 −1 tools/dev/rebuild_miniparrot.pl
  60. +9 −8 tools/dev/run_indent.pl
  61. +2 −1 tools/dev/symlink.pl
  62. +3 −1 tools/docs/pod_errors.pl
  63. +3 −1 tools/docs/write_docs.pl
  64. +4 −1 tools/util/ncidef2pasm.pl
  65. +2 −2 tools/util/smokeserv-client.pl
  66. +2 −2 tools/util/smokeserv-server.pl
View
@@ -1,4 +1,4 @@
-#! perl -w
+#! perl
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id$
@@ -241,7 +241,7 @@ =head1 SEE ALSO
use strict;
use warnings;
use lib 'lib';
-use 5.006_001;
+use 5.006;
use English qw( -no_match_vars );
use Parrot::BuildUtil;
View
@@ -261,12 +261,6 @@ SP [ ]
"method" return(METHOD); /* old compat cruft -
the canonical colon names are below */
-<emit,INITIAL>"@MULTI" return(MULTI);
-<emit,INITIAL>"@MAIN" return(MAIN);
-<emit,INITIAL>"@LOAD" return(LOAD);
-<emit,INITIAL>"@IMMEDIATE" return(IMMEDIATE);
-<emit,INITIAL>"@POSTCOMP" return(POSTCOMP);
-<emit,INITIAL>"@ANON" return(ANON);
":method" return(METHOD);
<emit,INITIAL>":multi" return(MULTI);
@@ -29,6 +29,7 @@ =head1 EXAMPLE
=cut
use strict;
+use warnings;
my $Verbose = 0;
if ($ARGV[0] eq '-v') {
View
@@ -1,10 +1,13 @@
-#! perl -w
+#! perl
# Create Kate syntax highlighting XML file for IMCC
# Language: Parrot IMCC
# Maintainer: Andy Bussey <andybussey@yahoo.co.uk>
# Last change: 2003 Aug 19
+use strict;
+use warnings;
+
my $parrot = $ARGV[0];
if ($parrot eq '-h') {
@@ -1,5 +1,4 @@
-#!/usr/bin/perl
-
+#! perl
use strict;
use warnings;
@@ -1,10 +1,11 @@
-#! perl -w
+#! perl
# Remember, this is BAD PERL later to be translated to PASM
# First tokenize the input stream into:
# @tokens and @tokdsc
# Then compile.
use strict;
+use warnings;
use Getopt::Std;
use vars qw( @tokens @tokdsc);
use vars qw(%code %options @basic %common);
@@ -1,5 +1,6 @@
#! perl -w
-
+use strict;
+use warnings;
no warnings 'once';
$parpath='../../../';
@@ -1,8 +1,12 @@
-#! perl -w
+#! perl
# Relies on "testrun.pl" being setup correctly.
#
#
+
+use strict;
+use warnings;
+
$tn=0;
while(1) {
{
@@ -1,4 +1,4 @@
-#! perl -w
+#! perl
#
# $Id$
# $Log: basic.pl,v
@@ -23,6 +23,10 @@
# Subsequent runs can be done with:
# parrot.exe out.pbc
#
+
+use strict;
+use warnings;
+
open(T, ">merged_basic.pasm") || die;
print T <<'EOF';
@@ -1,6 +1,7 @@
-#!/usr/bin/perl
+#! perl
use strict;
+use warnings;
use Getopt::Long;
# Grab parameters.
@@ -1,9 +1,10 @@
-#!/usr/bin/perl
+#! perl
# WMLScript => PIR Translator Generator
# Script to generate the instruction translator from a rules file and a
# stack to register mapping algorithm.
use strict;
+use warnings;
use Getopt::Long;
use lib 'build';
View
@@ -1,4 +1,4 @@
-#! perl -w
+#! perl
=head1 NAME
@@ -11,6 +11,7 @@ =head1 DESCRIPTION
=cut
use strict;
+use warnings;
use YAML;
use Parse::RecDescent;
@@ -1,9 +1,10 @@
-#!/usr/bin/perl
+#! perl
# .NET CLI => PIR Translator Built-in Methods Build Tool
# Script to take a file containing internal methods and spit out a chunk of
# PIR that can look up the built-in that's needed and return its PIR.
use strict;
+use warnings;
use Getopt::Long;
# Grab parameters.
@@ -1,9 +1,10 @@
-#!/usr/bin/perl
+#! perl
# .NET CLI => PIR Translator Generator
# Script to generate the instruction translator from a rules file and a
# stack to register mapping algorithm.
use strict;
+use warnings;
use Getopt::Long;
use lib 'build';
@@ -1,5 +1,6 @@
-#!/usr/bin/perl
+#! perl
use strict;
+use warnings;
my @results = ();
while (<>) {
@@ -1,5 +1,6 @@
-#!/usr/bin/perl
+#! perl
use strict;
+use warnings;
my @results = ();
while (<>) {
@@ -1,4 +1,8 @@
-%res = ();
+#! perl
+use warnings;
+use strict;
+
+my %res = ();
while (<>) {
# Extract message
chomp;
View
@@ -1,9 +1,7 @@
-#!/usr/bin/perl -w
-
+#! perl
use strict;
-
+use warnings;
use Getopt::Std;
-
use Lua::parser;
my %opts;
@@ -1,4 +1,4 @@
-#! perl -w
+#! perl
# $Id$
@@ -10,6 +10,7 @@ =head1 SYNTAX
# pragmata
use strict;
+use warnings;
use 5.005;
# standard perl modules
@@ -1,3 +1,4 @@
+#! perl
# $Id$
=head1 NAME
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#! perl
# $Id$
@@ -7,6 +7,7 @@
# in Parrot and how to translate Python stack-oriented bytecode to PIR.
use strict;
+use warnings;
use Getopt::Std;
my ($DIS, @dis, @source, $file, %opt, $DEFVAR, $cur_func, $lambda_count,
View
@@ -1,9 +1,9 @@
-#!/usr/bin/perl -w
-
+#! perl
+use strict;
+use warnings;
use lib 'lib';
use Regex;
use Regex::Driver;
-use strict;
my $operation;
my $expr;
View
@@ -1,12 +1,12 @@
-#! perl -w
+#! perl
use strict;
+use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use Regex;
use Regex::Driver;
# use lib "$FindBin::Bin/../../lib";
# use Parrot::Config;
-use strict;
# Running this with perl5.005 produces:
# Can't locate object method "new" via package "Regex::CodeGen::IMCC"
@@ -1,5 +1,6 @@
-#! perl -w
+#! perl
use strict;
+use warnings;
use lib qw(lib);
my $static_dir = 'runtime/builtin';
@@ -1,6 +1,6 @@
-#!/usr/bin/perl -w
-
+#! perl
use strict;
+use warnings;
=head1 NAME
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#! perl
# Copyright (C) 2005, The Perl Foundation.
# $Id$
@@ -1,5 +1,4 @@
-#!/usr/bin/perl
-
+#! perl
use strict;
use warnings;
View
@@ -1,10 +1,10 @@
-#! perl -w
+#! perl
# urm.pl
# 2003 (c) by Marcus Thiesen
# Maybe you can use it for debugging
-use warnings;
use strict;
+use warnings;
use Data::Dumper;
my @program;
@@ -2,7 +2,6 @@
use strict;
use warnings;
-
=head1 NAME
tools/build/addopstags.pl - add src/ops/*.ops to tags
View
@@ -7,11 +7,13 @@ =head1 NAME
=cut
+use warnings;
+use strict;
use lib 'lib';
+
use Text::Balanced qw(extract_delimited);
use Math::BigInt;
use Getopt::Long;
-use strict;
my $outfile = 'all_cstring.str';
my $string_private_h = 'src/string_private_cstring.h';
@@ -1,4 +1,4 @@
-#! perl -w
+#! perl
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id$
@@ -21,7 +21,7 @@ =head1 DESCRIPTION
=cut
-
+use warnings;
use strict;
use lib 'lib';
use Digest::Perl::MD5 qw(md5_hex);
View
@@ -1,4 +1,4 @@
-#! perl -w
+#! perl
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id$
@@ -17,8 +17,8 @@ =head1 DESCRIPTION
=cut
-use strict;
use warnings;
+use strict;
use lib 'lib';
use Parrot::OpLib::core;
@@ -1,5 +1,6 @@
-#!/usr/bin/perl -wl
+#! perl -l
+use warnings;
use strict;
unless (1 == scalar @ARGV){
View
@@ -1,4 +1,4 @@
-#! perl -w
+#! perl
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id$
@@ -105,6 +105,7 @@ =head1 SEE ALSO
=cut
+use warnings;
use strict;
use lib 'lib';
Oops, something went wrong.

0 comments on commit 3ace369

Please sign in to comment.