stas 2003/08/12 22:17:19
Modified: src/docs/2.0/user/porting compat.pod
Log:
remove a redundant code
Revision Changes Path
1.20 +0 -1 modperl-docs/src/docs/2.0/user/porting/compat.pod
Index: compat.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/porting/compat.pod,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- compat.pod 12 Aug 2003 18:06:05 -0000 1.19
+++ compat.pod 13 Aug 2003 05:17:19 -0000 1.20
@@ -207,7 +207,6 @@
}
sub chdir_file {
- use File::Basename();
my $file = @_ == 2 ? $_[1] : $_[0]->{FILENAME};
my $dir = File::Basename::dirname($file);
chdir $dir or die "Can't chdir to $dir: $!";
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
