Changeset 74 for trunk

Timestamp:

05/24/10 16:14:16 (4 months ago)

Author:

soergel

Message:

fix exclude bug

Files:

• trunk/s3napback.pl (modified) (3 diffs)

trunk/s3napback.pl

@@ -4 +4 @@
 # Manage cycling, incremental, compressed, encrypted backups on Amazon S3.
 #
-# Version 1.04
+# Version 1.05
 #
 # Copyright (c) 2008-2009 David Soergel
@@ -233 +233 @@
 
         my @excludes = $block->get("Exclude");
-
-        backupDirectory( $name, cyclespec($block), @excludes );
+                my @cyclespec = cyclespec($block);
+                
+        backupDirectory( $name, \@cyclespec, \@excludes );
     }
 
@@ -276 +277 @@
 
 sub backupDirectory {
-    my ( $name, @cyclespec, @excludes ) = @_;
+    my ( $name, $cyclespecR, $excludesR ) = @_;
+        my @cyclespec = @$cyclespecR;
+        my @excludes = @$excludesR;
+
     my ( $frequency, $phase, $diffs, $fulls, $usetemp ) = @cyclespec;