Changeset 11289

Timestamp:

Jan 24, 2007, 5:41:29 PM (19 years ago)

Author:

jhoblitt

Message:

properly declare $overwrite

File:

• trunk/DataStore/scripts/dsleech (modified) (3 diffs)

trunk/DataStore/scripts/dsleech

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: dsleech,v 1.5 2007-01-25 03:39:31 jhoblitt Exp $
+# $Id: dsleech,v 1.6 2007-01-25 03:41:29 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 use Pod::Usage qw( pod2usage );
 
-my ($dir, $uri, $last_fileset, $recall, $remember, $verbose);
+my ($dir, $uri, $last_fileset, $overwrite, $recall, $remember, $verbose);
 
 GetOptions(
@@ -87 +87 @@
 sub process_filesets
 {
-    my ($filsets, $dir, $overwrite $verbose) = @_;
+    my ($filsets, $dir, $overwrite, $verbose) = @_;
 
     foreach my $fileset (@$filesets) {