From ad8e4618e5a517b22ef5180ad59b0c116e0aaaa1 Mon Sep 17 00:00:00 2001
From: Stig Thormodsrud <stig@vyatta.com>
Date: Mon, 27 Apr 2009 11:23:25 -0700
Subject: Using perl module for move() rather than system call.

---
 scripts/vyatta-banner.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scripts/vyatta-banner.pl b/scripts/vyatta-banner.pl
index 5daeb482..e1cd70a1 100644
--- a/scripts/vyatta-banner.pl
+++ b/scripts/vyatta-banner.pl
@@ -32,6 +32,7 @@ use lib '/opt/vyatta/share/perl5/';
 use Vyatta::Config;
 
 use Getopt::Long;
+use File::Copy;
 use strict;
 use warnings;
 
@@ -43,14 +44,14 @@ my $postlogin_file     = '/etc/motd';
 sub save_orig_file {
     my $file = shift;
 
-    system "mv $file $file.old" if ! -e "$file.old";
+    move($file, "$file.old") if ! -e "$file.old";
     return;
 }
 
 sub restore_orig_file {
     my $file = shift;
 
-    system "mv $file.old $file" if -e "$file.old";
+    move("$file.old", $file)if -e "$file.old"; 
     return;
 }
 
-- 
cgit v1.2.3