Merge pull request #83 from c-po/no-legacy

T6527: remove legacy Perl library components

1 files changed, 0 insertions, 71 deletions

diff --git a/lib/Vyatta/File.pm b/lib/Vyatta/File.pm
deleted file mode 100644
index 49f5c2b..0000000
--- a/lib/Vyatta/File.pm
+++ /dev/null
@@ -1,71 +0,0 @@
-# Module: File.pm
-# File manipulation functions
-
-# **** License ****
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License version 2 as
-# published by the Free Software Foundation.
-#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-# General Public License for more details.
-#
-# This code was originally developed by Vyatta, Inc.
-# Portions created by Vyatta are Copyright (C) 2010 Vyatta, Inc.
-# All Rights Reserved.
-# **** End License ****
-
-package Vyatta::File;
-use strict;
-use warnings;
-
-our @EXPORT = qw(touch mkdir_p rm_rf);
-our @EXPORT_OK = qw(show_error);
-use base qw(Exporter);
-
-use Fcntl;
-use File::Path qw(make_path remove_tree);
-
-# Change file time stamps
-# if file does not exist, it is created empty
-sub touch {
-    my $file = shift;
-    my $t = time;
-
-    sysopen (my $f, $file, O_RDWR|O_CREAT)
-	or die "Can't touch $file: $!";
-    close $f;
-    utime $t, $t, $file;
-}
-
-# like mkdir -p
-# Wrapper of File::Path:make_tree
-sub mkdir_p {
-    my $path = shift;
-    my $err;
-
-    make_path($path, { error => \$err } );
-    
-    return @$err;
-}
-
-# like rm -rf
-# returns an array of errors if any (see File::Path)
-sub rm_rf {
-    my $path = shift;
-    my $err;
-
-    remove_tree($path,  { error => \$err } );
-
-    return @$err;
-}
-
-sub show_error {
-    for my $diag (@_) {
-	my ($f, $msg) = %$diag;
-	warn "$f: $msg\n";
-    }
-}
-
-1;