X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_nightly;h=5548738b1f960c75c0b8468eb7cb1d43e436d2bd;hp=1f2d1f4d9c03b966cb47d6a39d0ee8c14f5c99e9;hb=ce708288691ba7dd95a8dac7a468bc0e4c1d6588;hpb=3dc33e5f39430031766adf3c5bb2ffc649ee9100

diff --git a/bin/BackupPC_nightly b/bin/BackupPC_nightly
index 1f2d1f4..5548738 100755
--- a/bin/BackupPC_nightly
+++ b/bin/BackupPC_nightly
@@ -1,4 +1,4 @@
-#!/bin/perl -T
+#!/bin/perl
 #============================================================= -*-perl-*-
 #
 # BackupPC_nightly: Nightly cleanup & statistics script.
@@ -17,7 +17,7 @@
 #   Craig Barratt  <cbarratt@users.sourceforge.net>
 #
 # COPYRIGHT
-#   Copyright (C) 2001  Craig Barratt
+#   Copyright (C) 2001-2003  Craig Barratt
 #
 #   This program is free software; you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
@@ -35,13 +35,14 @@
 #
 #========================================================================
 #
-# Version 1.6.0_CVS, released 10 Dec 2002.
+# Version 2.1.0beta0, released 20 Mar 2004.
 #
 # See http://backuppc.sourceforge.net.
 #
 #========================================================================
 
 use strict;
+no  utf8;
 use lib "/usr/local/BackupPC/lib";
 use BackupPC::Lib;
 use BackupPC::FileZIO;
@@ -101,7 +102,7 @@ if ( $mday == 1 ) {
                                         "$TopDir/pc/$host/LOG.0.z",
                                         "$TopDir/pc/$host/LOG.0",
                                         $Conf{CompressLevel}, 1);
-        open(LOG, ">$TopDir/pc/$host/LOG") && close(LOG);
+        open(LOG, ">", "$TopDir/pc/$host/LOG") && close(LOG);
     }
 }