Index: [Article Count Order] [Thread]

Date:  Mon, 16 Mar 2009 09:43:59 -0800
From:  Bob Harrison <bob (at mark) zookerman.net>
Subject:  [coba-e:15342] Re: raqbackup.sh broken after install  Archive::Tar
To:  coba-e (at mark) bluequartz.org
Message-Id:  <6.2.5.6.2.20090316094212.02b61588 (at mark) zookerman.net>
In-Reply-To:  <14858053.31237220701281.JavaMail.root (at mark) z01.pfinders.com>
References:  <6.2.5.6.2.20090315130329.02ca69e8 (at mark) zookerman.net> <14858053.31237220701281.JavaMail.root (at mark) z01.pfinders.com>
X-Mail-Count: 15342


>Bob,
>
>You will have to patch /usr/cmu/perl/Archive/Tar.pm
>
>--- Tar.pm.orig        2008-08-17 22:39:17.000000000 +0900
>+++ Tar.pm        2008-12-21 22:06:27.000000000 +0900
>@@ -28,15 +28,15 @@
>   my $compression = eval {
>       local $SIG{__DIE__};
>       require Compress::Zlib;
>-    sub Compress::Zlib::gzFile::gzseek {
>-        my $tmp;
>-
>-        $_[0]->gzread ($tmp, 4096), $_[1] -= 4096
>-            while ($_[1] > 4096);
>-
>-        $_[0]->gzread ($tmp, $_[1])
>-          if $_[1];
>-    }
>+#    sub Compress::Zlib::gzFile::gzseek {
>+#        my $tmp;
>+#
>+#        $_[0]->gzread ($tmp, 4096), $_[1] -= 4096
>+#            while ($_[1] > 4096);
>+#
>+#        $_[0]->gzread ($tmp, $_[1])
>+#          if $_[1];
>+#    }
>       1;
>   };
>   carp "Compression not available"
>@@ -245,10 +245,10 @@
>           $mode = $#_ ? (int($_[1]) > 1 ?
>                             "wb".int($_[1]) : "wb") : "rb";
>
>-#        $fh = Compress::Zlib::gzopen ($_[0], $mode)
>-#            or &_drat;
>-        $fh = Compress::Zlib::gzdopen_ ($fh, $mode, 0)
>+        $fh = Compress::Zlib::gzopen ($_[0], $mode)
>               or &_drat;
>+#        $fh = Compress::Zlib::gzdopen_ ($fh, $mode, 0)
>+#            or &_drat;
>       }
>       else {
>           $flags = fcntl ($_[0], F_GETFL, 0) & (O_RDONLY | O_WRONLY 
> | O_RDWR);
>
>Worked for me.
>
>Herb
>
>----- Original Message -----
>From: "Bob Harrison" <bob (at mark) zookerman.net>
>To: coba-e (at mark) bluequartz.org
>Sent: Sunday, March 15, 2009 2:09:04 PM GMT -08:00 US/Canada Pacific
>Subject: [coba-e:15317] raqbackup.sh broken after install Archive::Tar
>
>I installed Archive::Tar from CPAN on a BQ machine and now I am
>getting the following error from raqbackup.sh
>
>02:15:04 > Deleting old logfiles... ok
>02:15:04 > Deleting last backup... ok
>02:15:05 > Deleting cmu.log to have a fresh one... ok
>02:15:05 > Starting cmuExport... ok
>02:15:13 > Finished!
>02:15:13 > Starting to tar xml-files... not ok
>********************************* ERROR ********************************
>tar: /home/nuonce/backup/system_backup/data/*.xml: Cannot stat: No
>such file or directory
>tar: Error exit delayed from previous errors
>************************************************************************
>
>Anyone else seeing this or can anyone suggest any fixes??
>
>TIA
>
>
>
>--
>Herb Rubin
>Pathfinders Software
>http://www.pfinders.com


Thanks a million Herb!! - this looks like exactly what I need

--Bob