From 2e4d7da6d355bb830ffc296680fa8275366d3beb Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Fri, 5 Nov 2010 09:50:55 +0000
Subject: removed test/ dir since it was causing too much trouble

---
 test/build_links.pl | 58 -----------------------------------------------------
 1 file changed, 58 deletions(-)
 delete mode 100755 test/build_links.pl

(limited to 'test/build_links.pl')

diff --git a/test/build_links.pl b/test/build_links.pl
deleted file mode 100755
index daed67c..0000000
--- a/test/build_links.pl
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use File::Find;
-use File::Basename qw/basename/;
-#use File::Spec ();
-use Cwd qw/realpath/;
-
-use FindBin;
-
-my $scripts_dir = $FindBin::Bin . '/irssi/scripts';
-print "Cleanup....\n";
-find(\&cleanup, "irssi/scripts/");
-print "Scanning for new....\n";
-find(\&wanted, '../');
-print "Done\n";
-
-sub cleanup {
-    my $file = $_;
-    my $path = $File::Find::name;
-    my $dir = $File::Find::dir;
-
-    # only process symlinks
-    my $abs_path = realpath($path); #File::Spec->rel2abs($path);
-    return unless defined $abs_path;
-    return unless (-l $abs_path);
-    print "Thinking about deleting $path\n";
-
-}
-
-sub wanted {
-    my $file = $_;
-    my $path = $File::Find::name;
-    my $dir = $File::Find::dir;
-
-    my $abs_path = realpath($path); #File::Spec->rel2abs($path);
-    #$abs_path = File::Spec->canonpath($abs_path);
-
-    return if $dir =~ /(?:test|docs)$/;
-    return unless $file =~ /\.pl$/;
-    return unless defined $abs_path;
-    return unless -f $abs_path;
-
-    print "Thinking about $scripts_dir/$file => $abs_path\n";
-    create_link($abs_path);
-}
-
-
-sub create_link {
-    my $target = shift;
-    my $name = basename($target);
-    my $link = $scripts_dir . '/' . $name;
-
-    my $ret = symlink($target, $link);
-    die "link creation failed - T: $target, L: $link" unless $ret;
-}
-- 
cgit v1.2.3