richter 02/03/21 07:02:43
Modified: . Tag: Embperl2c Changes.pod
Embperl Tag: Embperl2c Object.pm
Log:
-
Revision Changes Path
No revision
No revision
1.129.4.61 +5 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.60
retrieving revision 1.129.4.61
diff -u -r1.129.4.60 -r1.129.4.61
--- Changes.pod 21 Mar 2002 05:37:49 -0000 1.129.4.60
+++ Changes.pod 21 Mar 2002 15:02:43 -0000 1.129.4.61
@@ -1,5 +1,10 @@
=pod
+=head1 2.0b8
+
+ - when setting $r -> param -> filename in an application object
+ to a relativ path it is interpreted relativ to original request
+
=head1 2.0b7 (BETA) 21. Mar. 2002
- Changed default for EMBPERL_ESCMODE from 3 to 7. This disables
No revision
No revision
1.1.2.19 +7 -2 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -u -r1.1.2.18 -r1.1.2.19
--- Object.pm 13 Mar 2002 06:29:36 -0000 1.1.2.18
+++ Object.pm 21 Mar 2002 15:02:43 -0000 1.1.2.19
@@ -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.18 2002/03/13 06:29:36 richter Exp $
+# $Id: Object.pm,v 1.1.2.19 2002/03/21 15:02:43 richter Exp $
#
###################################################################################
@@ -48,7 +48,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0b6';
+$VERSION = '2.0b8';
$volume = (File::Spec -> splitpath ($Embperl::cwd))[0] ;
@@ -77,6 +77,11 @@
if (File::Spec->file_name_is_absolute ($path))
{
$path = File::Spec -> canonpath ($path) ;
+ if (!$_[0])
+ {
+ my ($volume, $dir, $file) = File::Spec -> splitpath ($path) ;
+ $_[0] = File::Spec -> catdir ($volume, $dir) ;
+ }
}
else
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
