fixed warnings if ftp answer contains . and ..
authorHeiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de
Fri, 08 Apr 2011 10:41:24 +0200
changeset 34 526358c27dc2
parent 33 8a1404e2e371
child 35 888e1c15c9fd
fixed warnings if ftp answer contains . and ..
.hgignore
Makefile
ftbackup
--- a/.hgignore	Tue Dec 29 22:42:45 2009 +0100
+++ b/.hgignore	Fri Apr 08 10:41:24 2011 +0200
@@ -4,3 +4,4 @@
 debian/*
 ftbackup.8
 debian/files
+Makefile
--- a/Makefile	Tue Dec 29 22:42:45 2009 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,30 +0,0 @@
-DESTDIR = 
-prefix = /usr
-sbindir = ${prefix}/sbin
-man8dir = ${prefix}/share/man/man8
-
-SCRIPT = ftbackup
-MAN8PAGE = ftbackup.8
-
-all:	
-
-
-install:	man all
-	install -d -m 0755 ${DESTDIR}${sbindir}
-	install    -m 0755 ${SCRIPT} ${DESTDIR}${sbindir}
-
-	install -d -m 0755 ${DESTDIR}${man8dir}
-	install    -m 0644 ${MAN8PAGE} ${DESTDIR}${man8dir}/
-
-
-	
-man:	${MAN8PAGE}
-
-clean:
-	rm -f ${MAN8PAGE}
-
-distclean:	clean
-	rm -f Makefile
-
-%.8:	%
-	pod2man --section 8 $< >$@
--- a/ftbackup	Tue Dec 29 22:42:45 2009 +0100
+++ b/ftbackup	Fri Apr 08 10:41:24 2011 +0200
@@ -110,7 +110,7 @@
             # FIXME: currently we simply run a full dump every FULL_CYCLE
             # days, the intermediate dumps are level 1
             foreach (reverse sort $ftp->ls) {
-                /^(?<date>.*)\.(?<level>\d+)$/;
+                /^(?<date>.*)\.(?<level>\d+)$/ or next;
                 $last[$+{level}] = $+{date};
                 last if $+{level} == 0;
             }