richter at locus
Mar 28, 2000, 12:46 PM
Post #1 of 1
(431 views)
Permalink
|
|
cvs commit: embperl/test/cmp varerr.htm
|
|
richter 00/03/28 11:46:07
Modified: . Embperl.pm Embperl.xs EmbperlObject.pm test.pl
Embperl Mail.pm Module.pm
emacs embperl.el
test/cmp varerr.htm
Log:
- make perl 5.6 fix compatible with perl 5.5 and 5.4
Revision Changes Path
1.91 +0 -0 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -r1.90 -r1.91
--- Embperl.pm 2000/03/28 19:14:07 1.90
+++ Embperl.pm 2000/03/28 19:46:03 1.91
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.90 2000/03/28 19:14:07 richter Exp $
+# $Id: Embperl.pm,v 1.91 2000/03/28 19:46:03 richter Exp $
#
###################################################################################
1.26 +10 -1 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- Embperl.xs 2000/03/28 19:14:07 1.25
+++ Embperl.xs 2000/03/28 19:46:04 1.26
@@ -71,8 +71,16 @@
SV * gv
CODE:
RETVAL = "" ;
- if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv) && GvGP (gv) -> gp_file )
+#ifdef GvFILE
+ if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv))
{
+ char * name = GvFILE (gv) ;
+ if (name)
+ RETVAL = name ;
+ }
+#else
+ if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv))
+ {
GV * fgv = GvFILEGV(gv) ;
if (fgv && SvTYPE(fgv) == SVt_PVGV)
{
@@ -81,6 +89,7 @@
RETVAL = name ;
}
}
+#endif
OUTPUT:
RETVAL
1.15 +0 -0 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- EmbperlObject.pm 2000/03/28 19:14:08 1.14
+++ EmbperlObject.pm 2000/03/28 19:46:04 1.15
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: EmbperlObject.pm,v 1.14 2000/03/28 19:14:08 richter Exp $
+# $Id: EmbperlObject.pm,v 1.15 2000/03/28 19:46:04 richter Exp $
#
###################################################################################
1.55 +1 -0 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -r1.54 -r1.55
--- test.pl 2000/03/28 19:14:08 1.54
+++ test.pl 2000/03/28 19:46:04 1.55
@@ -668,6 +668,7 @@
next if ($file =~ /sess\.htm/) ;
next if ($DProf && ($file =~ /safe/)) ;
next if ($DProf && ($file =~ /opmask/)) ;
+ #$errcnt = 12 if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
$debug ||= $defaultdebug ;
$page = "$inpath/$file" ;
1.14 +0 -0 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- Mail.pm 2000/03/28 19:14:10 1.13
+++ Mail.pm 2000/03/28 19:46:05 1.14
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Mail.pm,v 1.13 2000/03/28 19:14:10 richter Exp $
+# $Id: Mail.pm,v 1.14 2000/03/28 19:46:05 richter Exp $
#
###################################################################################
1.15 +0 -0 embperl/Embperl/Module.pm
Index: Module.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Module.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Module.pm 2000/03/28 19:14:10 1.14
+++ Module.pm 2000/03/28 19:46:05 1.15
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.14 2000/03/28 19:14:10 richter Exp $
+# $Id: Module.pm,v 1.15 2000/03/28 19:46:05 richter Exp $
#
###################################################################################
@@ -25,7 +25,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.14 2000/03/28 19:14:10 richter Exp $
+# $Id: Module.pm,v 1.15 2000/03/28 19:46:05 richter Exp $
#
###################################################################################
1.83 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- embperl.el 2000/03/28 19:14:10 1.82
+++ embperl.el 2000/03/28 19:46:06 1.83
@@ -19,9 +19,9 @@
;; Author : Erik Arneson (erik [at] mind)
;; Created On : Wed Jul 22 17:16:39 PDT 1998
;; Last Modified By: Erik Arneson
-;; Last Modified On: $Date: 2000/03/28 19:14:10 $
+;; Last Modified On: $Date: 2000/03/28 19:46:06 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.82 2000/03/28 19:14:10 richter Exp $
+;; $Id: embperl.el,v 1.83 2000/03/28 19:46:06 richter Exp $
;;
;; Please note that this software is very beta and rather broken. I
;; don't know how useful it will be, although I definitely plan on
1.5 +0 -5 embperl/test/cmp/varerr.htm
Index: varerr.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/varerr.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- varerr.htm 2000/03/28 19:14:11 1.4
+++ varerr.htm 2000/03/28 19:46:07 1.5
@@ -7,11 +7,6 @@
^\[.*?\]ERR\: 32\: Line 18: Warning in Perl code\: Use of uninitialized value
^\[.*?\]ERR\: (32\: Line 19: Warning|24\: Line 19: Error) in Perl code\: Global symbol \"\;\$?d\"\; requires explicit package name at.*?
^\[.*?\]ERR\: (32\: Line 20: Warning|24\: Line 20: Error) in Perl code\: Global symbol \"\;\$?e\"\; requires explicit package name at.*?
-^^
-^^
-^^
-^^
-^^
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
|
