Re: installation error on SuSE 10.1

["David Van Ginneken" <..hidden..>]

On 9/22/06, David Van Ginneken <..hidden..> wrote:
> On 9/22/06, roelof wolters <..hidden..> wrote:
> > Hello,
> >
> > I want to install ledgerSMB on my SuSE 10.1 box.
> >
> > I have postgresl and apache running.
> >
> > When I run the setup script as root it tells me:
> >
> > Checking for latest version number .... Can't "last" outside of a loop block
> > at setup.pl line 282.
> >
> > I don not know much about Perl coding, and maybe I have overlooked something
> > fundamental but I get stuck here.
> >
> > Please,
> > anyone who can help me out?
> >
> > Any suggestion or help will be very much appreciated!
> >
> > Roelof
> >
> > -------------------------------------------------------------------------
> > Take Surveys. Earn Cash. Influence the Future of IT
> > Join SourceForge.net's Techsay panel and you'll get the chance to share your
> > opinions on IT & business topics through brief surveys -- and earn cash
> > http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> >
> > _______________________________________________
> > Ledger-smb-users mailing list
> > ..hidden..
> > https://lists.sourceforge.net/lists/listinfo/ledger-smb-users
> >
> >
> >
> Comment out the "last;" statement on lines 282 and 295.  Entirely my
> fault :)  The previous version looped through a list of hosts, but
> this version goes straight to sourceforge.  Let me know if you have
> any other problems.  I was able to download from the arizona
> repository successfully.
Here is the diff.

Index: setup.pl
===================================================================
--- setup.pl    (revision 128)
+++ setup.pl    (working copy)
@@ -279,7 +279,7 @@
  if ($lwp) {
    if ($urlresult = LWP::Simple::get("$versionurl")){
      $latest_version = parse_links($urlresult);
-      last;
+      #last;
    } else {
      print "not found";
    }
@@ -292,7 +292,7 @@
    if ($ok = ($ok =~ s/HTTP.*?200 //)) {
      $urlresult = `lynx -dump $versionurl`;
      $latest_version = parse_links($urlresult);
-      last;
+      #last;
    } else {
      print "not found";
    }