update

[urisagit/Perl-Docs.git] / experiment / carp.pl

diff --git a/experiment/carp.pl b/experiment/carp.pl
deleted file mode 100644 (file)
index 3e2dce5..0000000
--- a/experiment/carp.pl
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/usr/local/bin/perl
-
-
-use Carp ;
-
-$carp = shift ;
-
-( ( $carp eq 'carp' ) ? \&carp : \&croak )->( "can't open file\n ) ;
-
-print "ok\n" ;