| # | Line 14 | Line 14 | Utilities::AddDir - Utility functions fo | |
|---|---|---|
| 14 | ||
| 15 | =cut | |
| 16 | ||
| 17 | < | package AddDir; |
| 17 | > | package Utilities::AddDir; |
| 18 | require 5.001; | |
| 19 | require Exporter; | |
| 20 | use Cwd; | |
| # | Line 89 | Line 89 | sub copydir | |
| 89 | } | |
| 90 | else | |
| 91 | { | |
| 92 | < | die "Attempt to open a non-existent directory ($src). Exitting\n"; |
| 92 | > | die "Attempt to open a non-existent directory ($src). Exiting\n"; |
| 93 | } | |
| 94 | } | |
| 95 | ||
| # | Line 154 | Line 154 | sub copydirwithskip | |
| 154 | } | |
| 155 | else | |
| 156 | { | |
| 157 | < | die "Attempt to open a non-existent directory ($src). Exitting\n"; |
| 157 | > | die "Attempt to open a non-existent directory ($src). Exiting\n"; |
| 158 | } | |
| 159 | } | |
| 160 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |