lix/perl/lib/Nix/Utils.pm at babe54bf97091441353f2219e7846afd0e0d9f16 - puck/lix - Lix Systems

puck/lix

forked from lix-project/lix

Eelco Dolstra babe54bf97 Add missing file

2012-08-27 11:11:30 -04:00

9 lines

216 B

Perl

Raw Blame History

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

 package Nix::Utils;
 $urlRE = "(?: [a-zA-Z][a-zA-Z0-9\+\-\.]*\:[a-zA-Z0-9\%\/\?\:\@\&\=\+\$\,\-\_\.\!\~\*]+ )";
 sub checkURL {
     my ($url) = @_;
     die "invalid URL ‘$url’\n" unless $url =~ /^ $urlRE $ /x;
 }