richter 02/03/01 14:12:19
Modified: Embperl Tag: Embperl2c Object.pm
Embperl/Syntax Tag: Embperl2c POD.pm
Log:
pod & newlines
Revision Changes Path
No revision
No revision
1.1.2.15 +2 -1 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.14
retrieving revision 1.1.2.15
diff -u -r1.1.2.14 -r1.1.2.15
--- Object.pm 1 Mar 2002 16:00:14 -0000 1.1.2.14
+++ Object.pm 1 Mar 2002 22:12:18 -0000 1.1.2.15
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Object.pm,v 1.1.2.14 2002/03/01 16:00:14 richter Exp $
+# $Id: Object.pm,v 1.1.2.15 2002/03/01 22:12:18 richter Exp $
#
###################################################################################
@@ -221,6 +221,7 @@
if (!$r -> error)
{
+ local $^W = 0 ;
no strict ;
my $isa = \@{"$package\:\:ISA"} ;
my $class = $appcfg -> object_handler_class || 'Embperl::Req' ;
No revision
No revision
1.1.2.14 +29 -13 embperl/Embperl/Syntax/Attic/POD.pm
Index: POD.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/POD.pm,v
retrieving revision 1.1.2.13
retrieving revision 1.1.2.14
diff -u -r1.1.2.13 -r1.1.2.14
--- POD.pm 1 Mar 2002 15:29:34 -0000 1.1.2.13
+++ POD.pm 1 Mar 2002 22:12:18 -0000 1.1.2.14
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: POD.pm,v 1.1.2.13 2002/03/01 15:29:34 richter Exp $
+# $Id: POD.pm,v 1.1.2.14 2002/03/01 22:12:18 richter Exp $
#
###################################################################################
@@ -283,28 +283,44 @@
(
'skip1' =>
{
- 'text' => "\n",
- 'contains' => "\r\n",
- 'nodetype' => ntypTag,
- 'cdatatype' => 0,
- 'removespaces' => 0,
- 'nodename' => "!:\n",
- },
- 'skip2' =>
- {
- 'text' => "\r",
+# 'text' => "\n",
'contains' => "\r\n",
'nodetype' => ntypTag,
'cdatatype' => 0,
'removespaces' => 0,
'nodename' => "!:\n",
},
+# 'skip2' =>
+# {
+# 'text' => "\r",
+# 'contains' => "\r\n",
+# 'nodetype' => ntypTag,
+# 'cdatatype' => 0,
+# 'removespaces' => 0,
+# 'nodename' => "!:\n",
+# },
) ;
%Para =
(
%List,
+ 'skip' =>
+ {
+ 'text' => "\n",
+ 'nodetype' => 0,
+ 'cdatatype' => 0,
+ 'removespaces' => 0,
+ 'nodename' => "\n",
+ },
+ 'skip2' =>
+ {
+ 'text' => "\r",
+ 'nodetype' => 0,
+ 'cdatatype' => 0,
+ 'removespaces' => 0,
+ 'nodename' => '',
+ },
'para' =>
{
'matchall' => 1,
@@ -334,7 +350,7 @@
'nodetype' => ntypStartEndTag,
'cdatatype' => ntypText,
},
- %Skip,
+ #%Skip,
) ;
%ParaTitle =
@@ -346,7 +362,7 @@
'end' => $paraend,
'cdatatype' => ntypText,
'nodename' => 'title',
- 'removespaces' => 72,
+ 'removespaces' => 40, #72,
'inside' => \%Format,
'nodetype' => ntypStartEndTag,
},
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
