SVN: toys/rsget.pl/RSGet: AutoUpdate.pm Dispatch.pm Main.pm

[sparky]

Author: sparky
Date: Sat Oct  3 16:54:18 2009
New Revision: 10659

Modified:
   toys/rsget.pl/RSGet/AutoUpdate.pm
   toys/rsget.pl/RSGet/Dispatch.pm
   toys/rsget.pl/RSGet/Main.pm
Log:
- fix autoupdate


Modified: toys/rsget.pl/RSGet/AutoUpdate.pm
==============================================================================
--- toys/rsget.pl/RSGet/AutoUpdate.pm	(original)
+++ toys/rsget.pl/RSGet/AutoUpdate.pm	Sat Oct  3 16:54:18 2009
@@ -13,7 +13,7 @@
 		"no", qr{no|yes|update} ],
 	svn_uri => [ "SVN path to rsget.pl source code.",
 		'http://svn.pld-linux.org/svn/toys/rsget.pl',
-		qr{(svn|http)://\.{4,}} ],
+		qr{(svn|https?)://.{4,}} ],
 );
 
 sub update

Modified: toys/rsget.pl/RSGet/Dispatch.pm
==============================================================================
--- toys/rsget.pl/RSGet/Dispatch.pm	(original)
+++ toys/rsget.pl/RSGet/Dispatch.pm	Sat Oct  3 16:54:18 2009
@@ -26,7 +26,7 @@
 				next NEW_IP;
 			}
 		}
-		print "Adding $new_if interface/address\n";
+		p "Adding $new_if interface/address\n";
 		push @interfaces, $new_if;
 	}
 }

Modified: toys/rsget.pl/RSGet/Main.pm
==============================================================================
--- toys/rsget.pl/RSGet/Main.pm	(original)
+++ toys/rsget.pl/RSGet/Main.pm	Sat Oct  3 16:54:18 2009
@@ -101,7 +101,7 @@
 			warn "Update successful, restarting\n";
 			exec $0, @$argv, "--use_svn", "yes";
 		}
-		set( "use_svn", "yes", "SVN updated" );
+		main::set( "use_svn", "yes", "SVN updated" );
 	}
 }