X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FView.pm;h=b71eecbefece5f6a4aaafe0ab29267fbd37d3ff1;hp=d879de2a5b827e55303827fb8c9686262e446e93;hb=e3a3959dcdb461886ed2d5fa4bcd3e345e750e7a;hpb=4cdaa6b8a9f5161ee2da4371d68cbbad41248ea0 diff --git a/lib/BackupPC/View.pm b/lib/BackupPC/View.pm index d879de2..b71eecb 100644 --- a/lib/BackupPC/View.pm +++ b/lib/BackupPC/View.pm @@ -31,7 +31,7 @@ # #======================================================================== # -# Version 3.0.0beta0, released 11 Jul 2006. +# Version 3.0.0beta2, released 11 Nov 2006. # # See http://backuppc.sourceforge.net. # @@ -140,7 +140,7 @@ sub dirCache } } foreach my $file ( @dir ) { - $file = $1 if ( $file =~ /(.*)/ ); + $file = $1 if ( $file =~ /(.*)/s ); my $fileUM = $file; $fileUM = $m->{bpc}->fileNameUnmangle($fileUM) if ( $mangle ); #print(STDERR "Doing $fileUM\n"); @@ -249,7 +249,7 @@ sub shareList my @dir = readdir(DIR); closedir(DIR); foreach my $file ( @dir ) { - $file = $1 if ( $file =~ /(.*)/ ); + $file = $1 if ( $file =~ /(.*)/s ); next if ( $file eq "attrib" && $mangle || $file eq "." || $file eq ".." @@ -289,7 +289,7 @@ sub fileAttrib my($m, $backupNum, $share, $path) = @_; #print(STDERR "fileAttrib($backupNum, $share, $path)\n"); - if ( $path =~ s{(.*)/+(.+)}{$1} ) { + if ( $path =~ s{(.*)/+(.+)}{$1}s ) { my $file = $2; $m->dirCache($backupNum, $share, $path); return $m->{files}{$file}; @@ -401,7 +401,7 @@ sub dirHistory } } foreach my $file ( @dir ) { - $file = $1 if ( $file =~ /(.*)/ ); + $file = $1 if ( $file =~ /(.*)/s ); my $fileUM = $file; $fileUM = $m->{bpc}->fileNameUnmangle($fileUM) if ( $mangle ); #print(STDERR "Doing $fileUM\n");