From b10119fc55babd963b979b9ddcec9629d697f479 Mon Sep 17 00:00:00 2001
From: An-Cheng Huang <ancheng@vyatta.com>
Date: Thu, 8 Jul 2010 13:53:31 -0700
Subject: fix for bug 5803

* fix positional params handling in shell function.
* fix argument handling in perl script.
---
 scripts/vyatta-comment-config.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'scripts/vyatta-comment-config.pl')

diff --git a/scripts/vyatta-comment-config.pl b/scripts/vyatta-comment-config.pl
index 8ef4cb6..2cbd81d 100644
--- a/scripts/vyatta-comment-config.pl
+++ b/scripts/vyatta-comment-config.pl
@@ -71,7 +71,13 @@ if ($ARGV[$#ARGV] eq '') {
     `rm -f $full_path/.comment`;
 }
 else {
-    `echo \"$ARGV[$#ARGV]\" > $full_path/.comment`;
+    my $cfile;
+    if (!open($cfile, '>', "$full_path/.comment")) {
+        print "Failed to set comment\n";
+        exit 1;
+    }
+    print $cfile $ARGV[$#ARGV];
+    close($cfile);
 }
 
 print "Done\n";
-- 
cgit v1.2.3