Mailing List Archive

Author: richter
Date: Sun Oct 1 11:53:55 2023
New Revision: 1912654

URL: http://svn.apache.org/viewvc?rev=1912654&view=rev
Log:
remove warnings about uninitialized values

Modified:
perl/embperl/trunk/ (props changed)
perl/embperl/trunk/Changes.pod
perl/embperl/trunk/Embperl/App.pm
perl/embperl/trunk/Embperl/Inline.pm
perl/embperl/trunk/Embperl/Mail.pm
perl/embperl/trunk/Embperl/Module.pm
perl/embperl/trunk/Embperl/Object.pm
perl/embperl/trunk/Embperl/Recipe.pm
perl/embperl/trunk/Embperl/Recipe/Embperl.pm
perl/embperl/trunk/Embperl/Recipe/EmbperlLibXSLT.pm
perl/embperl/trunk/Embperl/Recipe/EmbperlPODXSLT.pm
perl/embperl/trunk/Embperl/Recipe/EmbperlXSLT.pm
perl/embperl/trunk/Embperl/Recipe/EmbperlXalanXSLT.pm
perl/embperl/trunk/Embperl/Recipe/LibXSLT.pm
perl/embperl/trunk/Embperl/Recipe/XSLT.pm
perl/embperl/trunk/Embperl/Recipe/XalanXSLT.pm
perl/embperl/trunk/Embperl/Run.pm
perl/embperl/trunk/Embperl/Session.pm
perl/embperl/trunk/Embperl/Syntax.pm
perl/embperl/trunk/Embperl/Util.pm
perl/embperl/trunk/eg/web/menuleft.epl

Propchange: perl/embperl/trunk/
------------------------------------------------------------------------------
--- svn:ignore (original)
+++ svn:ignore Sun Oct 1 11:53:55 2023
@@ -16,7 +16,7 @@ Embperl.bs
*.dsp
*.dsw
embperl.code-workspace
-.vscode/
+.vscode
MYMETA.json
MYMETA.yml
embpfastcgi.pl
@@ -26,15 +26,15 @@ epocgi.bat
epocgi.pl
epocgi.test.pl
test/conf/config.pl
-xs/
-xsbuilder/tables/
+xs
+xsbuilder/tables
*.o
*.old
*.orig
*.rej
-patches/
+patches
Embperl.bso
-test/tmp/
+test/tmp
test/conf/httpd.conf
test/conf/httpd.min.conf
test/conf/httpd.stop.conf

Modified: perl/embperl/trunk/Changes.pod
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Changes.pod?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Changes.pod (original)
+++ perl/embperl/trunk/Changes.pod Sun Oct 1 11:53:55 2023
@@ -12,8 +12,12 @@
(https://rt.cpan.org/Public/Bug/Display.html?id=148621 and
https://rt.cpan.org/Public/Bug/Display.html?id=148702)
Thanks to Marcus Doemling
- - Fix compilation/Makefile of/for libxml2 and libxslt
- - Fix warnings about undefined values in log
+ - Fixed compilation/Makefile of/for libxml2 and libxslt
+ - Fixed warnings about undefined values in log. Note this
+ is done by goning back to the old behaviour, were
+ using uninitialized values were not a warning. So if
+ you like to have warnings about uninitialized values
+ add [* use warnings "uninitialized" *] to your code.
- Add a lot of enhancements to Embperl::Form

=head1 2.5.0 16. March 2014

Modified: perl/embperl/trunk/Embperl/App.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/App.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/App.pm (original)
+++ perl/embperl/trunk/Embperl/App.pm Sun Oct 1 11:53:55 2023
@@ -20,6 +20,8 @@ package Embperl::App ;
use strict ;
use vars qw{%Recipes} ;

+no warnings "uninitialized" ;
+
# ---------------------------------------------------------------------------------
#
# Get/create named recipe

Modified: perl/embperl/trunk/Embperl/Inline.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Inline.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Inline.pm (original)
+++ perl/embperl/trunk/Embperl/Inline.pm Sun Oct 1 11:53:55 2023
@@ -21,6 +21,8 @@ package Embperl::Inline ;
use strict ;
use vars qw{$options} ;

+no warnings "uninitialized" ;
+
sub import
{
if (ref $_[1] eq 'HASH')

Modified: perl/embperl/trunk/Embperl/Mail.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Mail.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Mail.pm (original)
+++ perl/embperl/trunk/Embperl/Mail.pm Sun Oct 1 11:53:55 2023
@@ -26,6 +26,8 @@ use vars qw(
$VERSION
) ;

+no warnings "uninitialized" ;
+

@ISA = qw(Embperl);


Modified: perl/embperl/trunk/Embperl/Module.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Module.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Module.pm (original)
+++ perl/embperl/trunk/Embperl/Module.pm Sun Oct 1 11:53:55 2023
@@ -21,6 +21,8 @@ use Embperl ;

$VERSION = '2.0.0';

+no warnings "uninitialized" ;
+

# define subs


Modified: perl/embperl/trunk/Embperl/Object.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Object.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Object.pm (original)
+++ perl/embperl/trunk/Embperl/Object.pm Sun Oct 1 11:53:55 2023
@@ -26,6 +26,8 @@ require DynaLoader;
use Embperl ;
use Embperl::Constant ;

+no warnings "uninitialized" ;
+
use constant OK => 0 ;
use constant NOT_FOUND => 404 ;
use constant FORBIDDEN => 403 ;

Modified: perl/embperl/trunk/Embperl/Recipe.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe.pm Sun Oct 1 11:53:55 2023
@@ -20,6 +20,8 @@ package Embperl::Recipe ;
use strict ;
use vars qw{@ISA @EXPORT_OK %EXPORT_TAGS %Recipes} ;

+no warnings "uninitialized" ;
+

# ---------------------------------------------------------------------------------
#

Modified: perl/embperl/trunk/Embperl/Recipe/Embperl.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/Embperl.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/Embperl.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/Embperl.pm Sun Oct 1 11:53:55 2023
@@ -19,6 +19,8 @@ package Embperl::Recipe::Embperl ;
use strict ;
use vars qw{@ISA} ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Recipe/EmbperlLibXSLT.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/EmbperlLibXSLT.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/EmbperlLibXSLT.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/EmbperlLibXSLT.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,8 @@ use vars qw{@ISA} ;

use Embperl::Recipe::EmbperlXSLT ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe::EmbperlXSLT') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Recipe/EmbperlPODXSLT.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/EmbperlPODXSLT.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/EmbperlPODXSLT.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/EmbperlPODXSLT.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,8 @@ use vars qw{@ISA} ;

use Embperl::Recipe::Embperl ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe::EmbperlXSLT') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Recipe/EmbperlXSLT.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/EmbperlXSLT.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/EmbperlXSLT.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/EmbperlXSLT.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,8 @@ use vars qw{@ISA} ;

use Embperl::Recipe::Embperl ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe::Embperl') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Recipe/EmbperlXalanXSLT.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/EmbperlXalanXSLT.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/EmbperlXalanXSLT.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/EmbperlXalanXSLT.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,8 @@ use vars qw{@ISA} ;

use Embperl::Recipe::EmbperlXSLT ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe::EmbperlXSLT') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Recipe/LibXSLT.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/LibXSLT.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/LibXSLT.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/LibXSLT.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,8 @@ use vars qw{@ISA} ;

use Embperl::Recipe::XSLT ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe::XSLT') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Recipe/XSLT.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/XSLT.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/XSLT.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/XSLT.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,8 @@ use vars qw{@ISA} ;

use Embperl::Recipe ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Recipe/XalanXSLT.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Recipe/XalanXSLT.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Recipe/XalanXSLT.pm (original)
+++ perl/embperl/trunk/Embperl/Recipe/XalanXSLT.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,8 @@ use vars qw{@ISA} ;

use Embperl::Recipe::XSLT ;

+no warnings "uninitialized" ;
+
@ISA = ('Embperl::Recipe::XSLT') ;

# ---------------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Run.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Run.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Run.pm (original)
+++ perl/embperl/trunk/Embperl/Run.pm Sun Oct 1 11:53:55 2023
@@ -22,6 +22,7 @@ use Embperl::Log ;

use Getopt::Long ;

+no warnings "uninitialized" ;


sub run (;\@$)

Modified: perl/embperl/trunk/Embperl/Session.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Session.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Session.pm (original)
+++ perl/embperl/trunk/Embperl/Session.pm Sun Oct 1 11:53:55 2023
@@ -129,6 +129,8 @@ $VERSION = '2.0.0';

use Apache::Session;

+no warnings "uninitialized" ;
+
use constant NEW => Apache::Session::NEW () ;
use constant MODIFIED => Apache::Session::MODIFIED () ;
use constant DELETED => Apache::Session::DELETED () ;

Modified: perl/embperl/trunk/Embperl/Syntax.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Syntax.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Syntax.pm (original)
+++ perl/embperl/trunk/Embperl/Syntax.pm Sun Oct 1 11:53:55 2023
@@ -21,6 +21,8 @@ package Embperl::Syntax ;
use strict ;
use vars qw{@ISA @EXPORT_OK %EXPORT_TAGS %DocumentRoot %Syntax} ;

+no warnings "uninitialized" ;
+
@ISA = qw{Exporter} ;

use constant ntypTag => 1 ;
@@ -317,7 +319,7 @@ sub CloneHash
%DocumentRoot = (
'-lsearch' => 1,

- # The document node is generated always and is not parserd, but can be used to include code
+ # The document node is generated always and is not parsed, but can be used to include code
'Document' => {
'nodename' => 'Document',
'nodetype' => ntypDocument,
@@ -327,8 +329,10 @@ sub CloneHash
# any initialisation could be put here
#$DB::single = 1 ;
$maxrow=100;$maxcol=10;
+no warnings "uninitialized" ;
},
compiletimeperlcode => q{
+no warnings "uninitialized" ;
use vars ('$_ep_DomTree', '@ISA', '@param') ;
*_ep_rp=\\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA;
*_ep_rpid=\\&XML::Embperl::DOM::Node::iReplaceChildWithMsgId;
@@ -351,7 +355,7 @@ Embperl::Util::CreateAliases ;
}
},
},
- # The document fraq node is generated always and is not parserd, but can be used to include code
+ # The document fraq node is generated always and is not parsed, but can be used to include code
'DocumentFraq' => {
'nodename' => 'DocumentFraq',
'nodetype' => ntypDocumentFraq,
@@ -360,8 +364,10 @@ Embperl::Util::CreateAliases ;
perlcode => q{
#my $_ep_param_save = \@param ;
#*param = $Embperl::req -> component -> param -> param || [];
+no warnings "uninitialized" ;
},
compiletimeperlcode => q{
+no warnings "uninitialized" ;
use vars ('$_ep_DomTree', '@ISA', '@param') ;
*_ep_rp=\\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA;
*_ep_rpid=\\&XML::Embperl::DOM::Node::iReplaceChildWithMsgId;

Modified: perl/embperl/trunk/Embperl/Util.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Util.pm?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Util.pm (original)
+++ perl/embperl/trunk/Embperl/Util.pm Sun Oct 1 11:53:55 2023
@@ -19,6 +19,8 @@ package Embperl::Util ;
use strict ;
use vars qw{@AliasScalar @AliasHash @AliasArray %NameSpace} ;

+no warnings "uninitialized" ;
+
#######################################################################################

sub AddCompartment ($)

Modified: perl/embperl/trunk/eg/web/menuleft.epl
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/eg/web/menuleft.epl?rev=1912654&r1=1912653&r2=1912654&view=diff
==============================================================================
--- perl/embperl/trunk/eg/web/menuleft.epl (original)
+++ perl/embperl/trunk/eg/web/menuleft.epl Sun Oct 1 11:53:55 2023
@@ -1,4 +1,4 @@
-
+[* no warnings "uninitialized" ; *]
[$ sub menuitem $]
[*
my ($url, $txt, $state, $tablebg, $ndx) = @_ ;



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org