On Wed, Sep 29, 2010 at 13:40:27 -0400, Gene Heskett wrote:
> On Wednesday, September 29, 2010 01:35:19 pm Dustin J. Mitchell did opine:
> > Can you add some debug prints to Amanda/Changer/disk.pm?
> >
> > 494 # TODO: locking
> > Amanda::Debug::debug("set_current: symlinking $curlink to slot$slot")
> > 495 symlink("slot$slot", $curlink);
> >
> > and
> >
> > 471 if (-l $curlink) {
> > 472 my $target = readlink($curlink);
> > Amanda::Debug:debug("get_current: $curlink = $target");
> > 473 if ($target =~ "^slot([0-9]+)/?") {
[...]
> amcheck dead in water:
> [ama...@coyote amanda-3.2.0alpha.svn.3460]$ amcheck Daily
> Amanda Tape Server Host Check
> -----------------------------
> Holding disk /usr/dumps: 620929024 kB disk space available, using 620417024
> kB
> amcheck-device: syntax error at
> /usr/lib/perl5/site_perl/5.10.1/Amanda/Changer/disk.pm line 473, near
> "Amanda::Debug:"
> syntax error at /usr/lib/perl5/site_perl/5.10.1/Amanda/Changer/disk.pm line
> 497, near ")
> symlink"
There should be a semicolon at the end of the new line that's added
between 494 and 495....
Nathan
----------------------------------------------------------------------------
Nathan Stratton Treadway - [email protected] - Mid-Atlantic region
Ray Ontko & Co. - Software consulting services - http://www.ontko.com/
GPG Key: http://www.ontko.com/~nathanst/gpg_key.txt ID: 1023D/ECFB6239
Key fingerprint = 6AD8 485E 20B9 5C71 231C 0C32 15F3 ADCD ECFB 6239
