Changeset 13010 for trunk/gsdl

Timestamp:

2006-10-05T15:52:53+13:00 (18 years ago)

Author:

shaoqun

Message:

fixed the bugs to split the cache dir on windows

File:

• trunk/gsdl/perllib/downloaders/Z3950Download.pm (modified) (1 diff)

trunk/gsdl/perllib/downloaders/Z3950Download.pm

@@ -335 +335 @@
     my ($self,$strFile) = @_;
 
-    my @aryDirs = split("[/\]",$strFile);
+    my @aryDirs = split(/[\/\\]/,$strFile);
    
     my $strLocalFile = pop(@aryDirs);