Changeset 321

Timestamp:

09/25/07 16:28:18 (17 years ago)

Author:

nanardon

Message:

• use verbose listing to retrieve path

File:

• obsdata/trunk/ObsData/Archive/Rar.pm (modified) (2 diffs)

obsdata/trunk/ObsData/Archive/Rar.pm

@@ -22 +22 @@
 sub ls {
     my ($self) = @_;
-    open( my $hrar, '-|', "unrar lb '$self->{archive}'" ) or do {
+    open( my $hrar, '-|', "unrar vb '$self->{archive}'" ) or do {
         $self->seterror("Can't read rar file: $!");
         return undef;
@@ -61 +61 @@
 
     open( my $sourcefh,
-        "unrar p -ierr '$self->{archive}' '*$file' 2>/dev/null |" )
+        "unrar p -ierr '$self->{archive}' '$file' 2>/dev/null |" )
       or return undef;