[csw-devel] SF.net SVN: gar:[12002] csw/mgar/pkg/cswpkgloghooks/trunk/files/ 01-CSWcswpkgloghooks-postupgrade

[bdwalton at users.sourceforge.net]

Revision: 12002
          http://gar.svn.sourceforge.net/gar/?rev=12002&view=rev
Author:   bdwalton
Date:     2010-12-18 14:23:22 +0000 (Sat, 18 Dec 2010)

Log Message:
-----------
cswpkgloghooks: more perl cleanups...sooo rusty

Modified Paths:
--------------
    csw/mgar/pkg/cswpkgloghooks/trunk/files/01-CSWcswpkgloghooks-postupgrade

Modified: csw/mgar/pkg/cswpkgloghooks/trunk/files/01-CSWcswpkgloghooks-postupgrade
===================================================================
--- csw/mgar/pkg/cswpkgloghooks/trunk/files/01-CSWcswpkgloghooks-postupgrade	2010-12-18 14:14:52 UTC (rev 12001)
+++ csw/mgar/pkg/cswpkgloghooks/trunk/files/01-CSWcswpkgloghooks-postupgrade	2010-12-18 14:23:22 UTC (rev 12002)
@@ -18,14 +18,13 @@
 close(STATEFILE);
 
 sub logdie {
-    local $arg = shift;
+    my ($arg) = (shift);
     system('logger', '-t', 'cswpkgloghooks', $arg);
     exit 0
 }
 
 sub success {
-    local $old = shift;
-    local $msg = '';
+    my ($old, $msg) = (shift, '');
     if ($script =~ /install$/) {
 	$msg = "installed $pkg $ver";
     } elsif ($script =~ /upgrade$/) {
@@ -38,8 +37,7 @@
 }
 
 sub failure {
-    local $old = shift;
-    local $msg = '';
+    my ($old, $msg) = (shift, '');
     if ($script =~ /install$/) {
 	$msg = "Failed to install $pkg $ver";
     } elsif ($script =~ /upgrade$/) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.